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RBSTRACT 
THE RKiI/RKOS PERFORMANCE EXERCISER IS A HIGH LEVEL EXERCISER 


A AT SI BTING A RKLI/RKOS SYSTEM AENVI 
erescins oe ERE ma ARISE IN SUCH ERNE MENS 
(I ETC). IT ALSO BROVIDES A MEANS OF 
EVAL rine a STEN Ten THROUGH TT ITS ERROR LOGGING AND DATA-TRANSFER 
LOGGING FACILTT 


AY THE BEGINNING OF THE PROGRAM THERE [IS A SERIES OF TESTS 
SPECIFICALLY AIMED _AT DETECTING AND ANALYZING FAILURES ASSOCIATED 
WITH BOUNDARY CONDITION TRANSFERS. 


M3 ROTTER PART (AND THE MORE SIGNIFICANT ONE) CONSISTS OF THE 
EXERCISER. 


REGUIREMENTS 
EQUIPMENT 


A. POP11 WITH CONSOLE TELTYPE 

ae ty eS pies 

C. RK11 OR RKV11 C 

D. 1-8 RKOS OR aKSSe DRIVES (DRIVE TYPES MAY BE MIXED) 


PRELIMINARY PROGRAMS 
SINCE THIS IS A HIGH LeveL OER 


THE DRI OF Fh tee 1 T Te PossiABLE Te HANG HANG 
TRA hie os Cares 
ATTEMPTING TO USE THIS PR 


A. RK11 BASIC wat TESTS (I AND IT) 
B. RK11/RKOS ty IC TESTS 
C. Pitas UTILITY PACKAGE (IF NEEDED) 


EXECUT ION TIME 


THIS VARIES FROM 30 10 90 MINUTES FOR A PAS IT SHOULD BE NOTED 
THAT THIS p EXERCISER LEVEL PROGRAM ane BE PREFERRASLY 
RUN FOR AL PERIOD OF TIME. 


STARTING ADDRESS 
200 - ALL SWITCHES DOWN. SEE SEC. 6.0 FOR SWITCHES. 


210 - RESTART ADDRESS. THE RESTART eerie PROVIDES THE USER WITH 
per ity FD me 6 TO EXERCISER PART OF THE PROGRAM 


ING TESTS 1-7) th OPTION (SW. 4) WHICH 
Fc Os Toe ER 10" reste The toll Te oe RANDOM PATTERNS ON ACL 


oF: 
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4.1 
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4.1.2 


PROGRAM CONTROL MODES AND OPERATOR ACTION 
PAPER TAPE LOADING 

RKDP DUMP MODE 

RKDP CHAIN MODE 

ACTI1 


PAPER TAPE LOADING 
pone PROGRAM INTO MEMORY USING STANDARD PROCEDURE FOR ABSOLUTE 


MAKE SURE THAT ae Sy has TO BE CHECKED ARE LOADED WITH D 


ese, Sarvs S$ is fF “EOP ais tHaf SKe "Net t5" BE sors asi : ‘- 


4.1.3 LOAD ADDRESS 200 


© 
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4.2 

4.8.3 
4.2.2 
4.2.3 


4.3 


SET SWITCHES IF DESIRED (SEE SEC &.0) AND PRESS START 


.5 THE PROGRAM 'DENTIFIES ITSELF 


MRINDEC-11-DZRKH-F 
RK11/RKOS PERFORMANCE EXERCISER 
THEN IT PROCEEDS TO TEST THE DRIVES. 


RKDP DUMP MODE 

THE PROGRAM IS LOADED BY THE RKDP MONITOR. 

SET SA=200. SELECT ANY SWITCHES YOU WANT AND PRESS START. 
THE PROGRAM IDENTIFIES ITSELF AND PRINTS OUT: 


TO TEST DRIVE °N’ HALT PROGRAM, REMOVE RKDP PACK AND REPLACE IT 
WITH A WORK PACK, CLEAR LOCATION 40, AND RESTART PROGRAM’ 


IN RESPONSE TO THIS RFORM THE ACTIONS REQUESTED IF THE 
DRIVE ON WHICH THE RISE PoE PACK IS MOUNTED IS TO BE TESTED. 
RKDP CHAIN MODE 


THE PROGRAM IS CHAIN LOADED FROM RKDP PACK ON DRIVE ‘N’. AFTER 
IDENTIFYING ITSELF, THE FOLLOWING MESSAGE APPEARS: 


"DRIVE °N’ NOT TESTED’ 
DRIVE °N’ WILL NOT BE TESTED SINCE THE RKDP PACK IS ON THAT DRIVE. 
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5.0 





FOL 


ACTL1 MODE 


BY THE ACT1] MONITOR. AFTER IDENTIFYING 
ieee, Fe Ascent THE NUMBER OF DRIVES PRESENT AND PROCEEDS TO 
OF THEM AS BEFORE. 


DRIVE SELECTION 


ef it THe ee THAT nae TQ BE EXERCISED reste Nee he, 
SURE THAT THE 


Seope SECaN AS Thay ESE PTE MESON LUN PROREOE oi 
DRIVE NUMBER. 


IF A FATAL ERROR OCCURS ON A DRIVE WHILE THE PROGRAM IS RUNNING 
THE DRIVE IS AUTOMATICALLY DESELECTED ("DSELCT’) AND DROPPED FROM 
THE DRIVE SELECTION LIST. 


SWITCH OPTIONS 


IF THE PROGRAM IS BEING A SWITCHLESS eae oo (T.E. 
11/34) _ THE PROGRAM W HAT 
SOFT WARE" SWITCH "ize (8), 


STER 15 LOCATED AT LOCATION 


ARE CON 

CALLED TYPING A ROL Ss THE 

CONTROL G’ aenever rogram enters 

ng ues ABE enters routine or bos Beta een a new OP THARE 
ENTERED AS AN 


PROM THE SWITCH ENTRY ROUTINES 


re 
tes 
IN 


RE SWITCH REGISTER 
eee *RUBOUT* 


© CORRE ING ERRORS 

Sens. Tne soPloge” sullen ecient ee "Rene Pte 

PROGRAM 6 suite 5 ei ta TION, ALL SWITCH 

REGISTER REFERENCES WHEL 16 THE REGISTER AND THE 
DESCRIBED ABOVE MUST BE F OLLOWED. 

SW<15>=1 HALT ON ERROR 


SW<13>= INHISIT ERROR PRINTOUTS 

SW<l2e>= TYPE OUT THE ERROR HISTORY 

SW<1l>= DUMP OUT ALL RKil REGISTERS 

SW<10>= RING ON 

SW<O09>= To ON SPECIFIC — 

SW<O08>= OUT TRANSFER DATA AND ERROR Sats Ues 
SW<06>=1 SELECT BUS ADDRESS LIMITS FOR DATA TRANSFERS 
Bs Rist he et hehe ita 
SW<03>= oer OUT ELAPSED TINE AT E 

Si‘ 02> = DROP DRIVE AFTER MAXIMUM ERRORS 


SEG 9005 
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6.1 


6.2 


£.3 


6.4 


6.5 


6.6 


GO1 


SW<O1l>=1 TYPE SERIAL NUMBER OF ERRORING DRIVE 
SW<00>=1 TYPE ONLY ELAPSED TIME IF SW<08> AND SW<03> = 1 


SW< 15> 
HE PROGRAM He HALTS ON ENCOUNTERING AN ERROR, AFTER TYPING OUT THE 
EERO TES BND PERT INFORMATION. PRESSING “CONTINUE 
STORES SORA TION OF THE PROGRAM. 
SW<13> 
THIS SWITCH -ANMIBITS ALL ERROR MESSAGES. NORMALLY USED WHEN 
LOOPING ON ERROR (SW 9). 


SW< 12> 


IF THIS SWITCH IS SET WHEN AN wt a OCCURS, INFORMATION ABOUT THE 
HISTORY OF THAT ERROR IS TYPED OU 


THE Function’ “coe. Be EsTHER ve READ, RITE alte Check, Read 
aw Baie whe f ERT IAL ee in" es EEO fs 


BOST TIONING THE des NUMBER OR WHICH THE Eh ae Le 
PERF ORMED 


S TYPED OUT ABOUT THE FUNCTION THAT WAS DONE 
IVING THE ERROR. 


IF THIS SWITCH IS SET WHEN AN ERROR OCCURS, THE CONTENTS OF ALL 
RK11 TYPED OUT. 


SwW<oS> 
THIS SWITCH PROVIDES THE TIGHTEST possi rece OOPING IS 
DONE WHEN AN ERROR OCCURS. uo ELasses OF 
ERRORS AND HENCE TWO CLASSES “oe braun | oops TE OEFER 10 Meee 8.0 FOR 
THE DIFFERNECE IN THE ERROR PROVIDED By SW 9. 


SW< 08> 


% 


WHEN THIS SWITCH IS SET, THE ERROR AND TRANSFER DATA STATISTICS 
WHICH HAVE BEEN COLLECTED UNTIL THAT TIME, ARE TYPED OUT. 


ty DATA pTarreties GIVE THe NUMBER OF og WRITTEN AND 


ON EACH DRIVE THAT IS PRESENT. IT BE NOTED THAT READ 
CHECK tee CHECK ARE CONSIDERED TO BE ESSENTIALLY READ 


THE ERROR STATISTICS GIVE THE NUMBER OF ERRORS THAT HAVE OCCURRED 


SEG O00E 





6.8 


6.9 






HO1 


(IF NY) IN THE FOLLOWING CATEGORIES, ON THE DRIVES THAT ARE 
PRESENT: 


CHECK SUM ERROR 
WRITE CHECK ERROR 
DATA COMPARISON ERROR 
SEEK 
SEEK INCOMPLETE 
ABORTS - WHEN AN ERROR OCCURS THE FUNCTION IS RETRIED TWICE. IF 


STILL THE ERROR PERSISTS THE FUNCTION IS ABORTED AND THE ABORT 
COUNT IS INCREMENTED FOR THAT DRIVE. 


SW< D&> 


THIS SWITCH ENABLES THE = TO oa ye a a oe Se. 
BUS ADDRESSES Fe TEEN WHICH 


THE DONE. 
AIND ie THIGHER “LT (intr ms ere TH a Ceaeeoe 
SELECTED SY THE PROGRAM AND THE MAXIMUM 


or 
ADDRESSES. (Ey. BETHEER 1 baie ee) THER SG LEEN SELECTED FENORY 
SET aT T . STARTING THE PROGRAM. THE FOLLOWING MESSAGE 


TYPE OCTAL BUS ADDRESS FOR DATA XFER, BETWEEN XXXXXX AND YYYYYYY 
LO LIMIT? 


HI LIMIT? 
IN RESPONSE THE USER SHOULD TYPE IN ANY TWO BUS ADDRESSES (OCTAL) 
BETWEEN XXXXXX_ AND YYYYYY. IF THE USER TYPES IN ANYTHING OUT OF 
THE X AND Y RANGE THE QUESTION IS ASKED AGAIN. 


THIS SWITCH COULD BE QUITE USEFUL IN DETERMINING WHETHER THE 
PROBLEM IS WITHIN THE RK11 OR OUTSIDE (IN MEMORY). NORMALLY, IF 
THE PROBLEM IS WITHIN RK11, ERRORS WILL KEEP ON OCCURING 
REGARDLESS OF WHERE IN THE MEMORY DATA TRANSFERS ARE TAKING PLACE. 
ON THE OTHER HAND IF THE et IS MEMORY RELATED, THE E 
WILL TO DISAPPEAR FOR DATA TRANSFERS TO CERTAIN MEMORY BLOCKS 
AND WOULD REAPPEAR FOR OTHER ONES. 


SW<0S> 


THIS SWITCH PROVIDES THE USER A ogy SON TO HALT ne PROGRAM 
A KNOWN porn THE HALT IS AFTER THE CURRENT SET OF Ez 
COMMANDS IN THE QUEUE HAVE BEEN EXECUTED. THE “HAL 
AT THE BEGINNING OF THE’GENSRO’ ROUTINE, JUST he A SET OF 
NEM COMMANDS IS GENERATED. AFTER THE PROGRAM HALTS, 

RESUMED BY PRESSING CONTINUE, OR THE PROGRAM’ cA BE STARTED 
BACK AT 200 OR RESTARTED AT 210. 


SW<O4> 





101 


THIS SWITCH my oF fue Use a Hh AN ABILITY TO SKIP THE TIME 
ONSUMING REWRITE DISKS WHEN THE PROGRAM IS RESTARTED 


C 

aT THIS ty og Y WHEN RESTART PROGRAM 
aT a 6 Hts Sat — RES batih Ree it 10, THE 
INIT BOUNDARY" conDITT on s. (isthe ST7) SK . 
SWITCH 4 IS SET, THE REWRITE THE DISKS (WHICH WOULD HAVE 


ft ae beste aR g Se Panay MeN te 
Sites testi, "SHG a PhctHle cit tES Bole RATE ON EYLIHOERS 0,1. 


SW<G3> 


abe SWITCH ALLOWS THE TYPEOUT OF THE ELAPSED TIME AT WHICH ERROR 

OCCURRED. _ THE Hoe STARTS AT THE BEGINNING OF THE EXERCISER 
PROGRAM. THIS SWITCH SHOULD NOT BE SET IF KW11L LINE CLOCK IS NOT 
AVAILABLE ON THE SYSTEM. 


SW< 02> 
1h BE DERSSTORES BY THE PROGRAM THE PROGRAM CONTINUES TESTING 
0 DRIVES WHICd uBve NOT ACCUMULATED T REQUIRED R OF 


SW<O1> 


STE STG 05 la SER BE Tea 
EACH ERROR MESSAGE FOR THA T BAR an DRIVE. 


SW<00> 


IF SW<O8> AND SW<O3> ARE 


SET, SETTING Hint tf SWITCH TYPES OUT THE 
ELAPSED TIME FROM THE START 


bF THE PROGRAM 


SEG 0008 


JOl 





SEG D009 
7.0 EXERCISER PROGRAM 
THE EXERC SER SPROGRAN ATTEMPTS 19 SIMULATE A DISK roe eee 


VENTS (FUNCTIONS) 
SRST Rl PRET IB SN tt, 
FRENSE beh our’ “On KA TYP TAL RETI/RROS SYSTEM (BRE ons 
DRIVES, PDPi1/S0, 28K SYSTEM). 
EIGHT JOBS OR COMMANDS ARE GENERATED AT A TIME (GENSRQ) AND PUT IN 
QUEUE TO BE PROCESSED. THE BLGORITHH WORKS. AS OWS. 
ING oe ot WHILE SOME OF t DRIVES ARE BEING POSITIONED 
THE LAST AVAILABLE ‘AND EXECUT COMMAND IS PERFORMED. 
WHILE SOME DRIVES ARE BUSY POSITIONING THEIR HEADS, SOME DRIVE IS 
CONTROL LES fs pune 08 ‘eK Fe Ere’ ie the te oa DR 
| WHICH ALREADY POSIT ae ONE TS) "FOUND 
COMMAND IS EXECUTED ON THAT DR CON R AGAIN BECOMES 
BUSY. IF NO POSITIONED COMMAND OUND, AC IS MADE TO 
|Past Ho he OR Buatteale Ceene DS Eeretteg! WaT" | 
| F HAT Ro On VE NEEDS TO ITI B Fate Edinb LapbEN 2 


T 
THERE IS T REMAINING 
COMMANDS IN THE QUEUE ARE TO BE PERFORMED ON SAME DRIVE), THEN 


NVIRONMENT, AT THE SAME 
PROGRAM 

THE STATE OF te 

S,_ FLAGS ; 


> 
m 
D 
m 
2 
m 


NSURES THAT OVERLAPPED SEEK 
POSITIONING LOGIC. 
THE PARAMETERS USED FOR DOING THE COMMANDS ARE ae: pia 


} 

USING RANDOM GENERATOR THE FUNCTION T 
SELECTED RANDOMLY FROM ONE OF THE FOUR: WRITE 
| oR THE DRIVE NUMBER IS SELEC 
DRIVES. THE DISK ADDRESS IS SELECTED OVER THE I 
| T C AND ss SELECTED RANDOMLY IN SUCH A WAY 
THAT A NON-EXISTENT MEMORY ERROR OVE CONDITION DOES NOT 
| 
| 


RANDOM DATA BLOCKS ARE WRITTEN aR ei DISK. THE 


FIRST WORD OF 
K is’ coneLene INDICATING THE 
TOTAL NUMBER OF WORDS WRITTEN IN FHA THE REST OF THE 


WORDS IN THE BLOCK ARE GENERATED USING. THE DISK ADDRESS (OF THAT 
SECTOR) AS THE RANDOM SEED NUMBER. 


8.0 


9.0 


10.¢ 


KO1 


LOOPING CAPABILITIES: 
SWITCH 9 GIVES LOOPING CAPABILITIES, ON ERROR. THERE ARE TWO 
CLASSES OF ERRORS: 


A. OCCURING IN THE WNON-EXERCISER PART OF THE PROGRAM 
FERROR NUMBERS UNGER Tho IN THE E ITEMS TABLE) 


B. ERRORS OCCURING IN THE EXERCISER PART OF THE PROGRAM (ERROR 
NUMBERS STARTING FROM 100 AND UP IN THE ERROR ITEMS TABLE) 


c- PONSEEEIFIC ERROR GIVING A NARROW SCOPE LOOP. THIS SCOPE’ LOOP 


IS SIMILIAR TO THE ONE PROVI IN _T Bx) BASIC LOGIC TEST 
AND DYNAMIC TEST, WHICH THE MI AMILIAR WITH. 


D. EXERCISER SCOPE LOOPS: vt gh ge (AFTER TYPING 
uy 3 fon MESSAGE) CONTROL IS TRANSFERRED TO as | BEGINNING OF 


Se rel oli Holt oe etloe 


LOOPING PROVIDES THE USER WITH A CAPABILITY T0 RECREATE A 
OF EVENTS THAT LED TO THE ERROR. 


TRANSFER DATA LOGGING 


ERROR LOGGING 


THROUGHOUT THE EXERCISER PROGRAM, WHEN AN ERROR OCCURS ) I7 Is 
POE et ig LUMENS CLASSES OF ERRORS ARE LOGGED FOR EACH DRIVE 


CHECK SUM ERROR 
rae CHECK ERROR 
DATA otal ERROR 


SEEK ERROR 
SEEK INCOMPLETE ERROR 
ABORTS 


hy 3 a erarrerics cnt BE OBTAINED BY PUTTING SWITCH 8 TO 1. 
ATISTICS CAN BE USED IN CONJUNCTION WITH a Lad 
sranistics 10 give AN PER ERROR OF THE SYSTEM (NUMBER 
OR, CSE FREGUENCY, RECOVERABLE VERSUS 
NON-RECOVERABLE ERRORS ETC 


SEQ 00i0 


comeere 


| 
| 
| 
| 


LO1 


11.0 ERROR REPORTING AND RECOVERY 


WHENEVER AN a ang abn. si REPORTED ae ae RELEVANT 
INFORMATION. RS REPORTED I ERROR MESSAGES 


oe ipa ie ies 


THIS bonrion aN THE Sg bonteD “IN CASE INF ORMAT 
ERROR IS DESI 


ee 10 MONITOR THE ae eh ACTIVITIES ON Te Tie oy Da Bh THe FLAGS 
REFERRED TO. F THE BRD are, rc 


IF A FATAL ERROR CONDITION IS DETECTED (L 
re bate ee vie READY CLEAR, ETC.) 


sone EE, SLE, UE Tn ln aD 


EACE 
ON AP TER oeTTGHT "BeORTS S$ Re REC ON A DRI raed RIVE Is 
BUAL DENSITY DRIVES ARE REEIROED. ON OF i Bares 
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12.0 SUBROUTINES AND HANDLERS 


THERE ARE TWO WAYS IN WHICH MOST OF THE SUBROUTINES USED IN THIS 
PROGRAM ARE CALLED: 


1. THROUGH THE NORMAL JSR CALL 
JSR REG, SUBROUTINE 
THROGH THE ° TRAP’ ob he ay My TRAP A gg Uy OO WITH ig 


OWER BYTE ENCODED SERVES AS NES. 
carnal a aa a pte stitL P pth once Mit 
LE ge” RGAE” il BUMS SPOLE LF HEH 


3. SSCOPE - THE SCOPE HANDLER 

THE SCOPE ENTERED THROUGH THE 

INSTRUCTION. IT KEEPS Ti OF VAR 

DESI DES, IF sat fe IS TO BE DONE ON ERROR 

ote f HAT THIS IOOLER 1S USED MOSTLY 

4. SERROR - ERROR HANDLER ROUTINE 
ERROR HANDLER IS 


THE S ENTERED THROUGH THE 
INSTRUCTION. THE LOWER BYTE if oY EMT INSTRUC 
GIVE AN ig tay TO THE ERROR C THUS Fi ACT P ts 104001 


BEFENOTNG op rt PTE SutTOH eer cglbes OF ; HALT nN FoR 0 ee ary 


MOST OF THE SEROUTINES RESIDE IN THE LATTER PART OF THE PROGRAM. 
THE USER CAN REFER TO THEM TROUGH THE CROSS REFERENCE TABLE AT THE 
END OF THE LISTINGS OR TABLE OF CONTENTS AT THE BEGINING. 


i 


EXECUTION OF THE ‘IOT’ 
OUS POINTERS, FLAGS AND 
(SW 9). IT SHOULD BE 
IN THE NON-EXERCISER PART 


na 
ae 
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.SBTTL BASIC DEFINITIONS 

- #INITIAL SS OF THE STACK POINTER ### 1100 ### 

agit 160 

EQUIV BT. ERR : BASIC DEFINITION OF ERROR CALL 
T.S ;;BAS 


EQUIV oe C DEFINITION OF SCOPE CALL 
: #MISCELLANEOUS DEFINITIONS 
T= 1 :;CODE FOR HORIZONTAL TAB 
ee CODE FOR LINE FEED ; 
CR= ] ss FOR CARRIAGE RETURN 
CRLF= e200 ;;CODE FOR CARRIAGE RETURN-LINE FEEL 
PS= Sages :;PROCESSOR STATUS WORD 
Feta rar ACK LIMIT REG 
IRG= 177772 + BROgRAR TERRE? REQUEST REGISTER 
OSWR= 177570 ;;HARDWARE SWITCH REGISTER 
DOISP= 177570 ;;HARDWARE DISPLAY REGISTER 
#GENERAL PURPOSE REGISTER DEFINITIONS 
= %0 ;;GENERAL REGISTER 
Ris %1 ;;GENERAL REGISTER 
= %e ;; GENERAL Peat arTeR 
R3= %3 ;;GENERAL REGISTER 
s “4 ;;GENERAL REGISTER 
= “Ss 3 REGISTER 
s “~& ;;GENERAL REGISTER 
R7= %7 ;;GENERAL REGISTER 
= “8 ;;STACK POINTER 
PCs “7 ;;PROGRAM COUNTER 
~ -#PRIORITY LEVEL DEFINITI 
Pro= ;;PRIORITY LEVEL 0 
PRl= 40 ;;PRIORITY LEVEL 1 
s 100 ; PRIORITY LEVEL e2 
PR3= 140 5 sPRISRI TY LEVEL 32 
PRY= 200 ;;PRIORITY LEVEL 4 
PRS= 240 ;;PRIORITY LEVEL S$ 
PRE= 208 ;;PRIORITY LEVEL 6 
PR7= 0 ;;PRIORITY LEVEL 7 
-#"SWITCH REGISTER” SWITCH DEFINITIONS 
ewiS= 100000 
SwWi4= 40000 
SW1i3= 20000 
SWl2e= 10000 
pitts 4000 
10= 2000 
= 1000 
Swos= 400 
SwO7= 200 
SWOb= 100 
SwOS= 40 
SWwO4= 20 
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BASIC DEFINITIONS 


KWLVEC=100 ;KWILL CLOCK VECTOR 


-EQUIV BIT12, SK 
-SBTTL TRAP CATCHER 


:* ORR OtS CRON taps » ee gone NA" 7 HALT™ 
LOCATION i CONTAINS O TO care IMPROPERLY LOADED VECTORS 


;; SOFTWARE DISPLAY REGISTER 
0 ;;SOFTWARE SWITCH REGISTER 
-SBTTL STARTING ADDRESS(ES) 


@eSTART ;;JUMP TO STARTING ADDRESS OF PROGRAM 


2210 s RESTART RODRESS IF RESTART IS 
INCB = FRSTRT DONE AT THE 6 BOUNDARY CONDITION 
IMP aeSTART ier s Tet tt) BRE SKIPPED. 


IF 
I T THEN T ISK NOT REWRITTEN 
iliebsk) ‘WET RANGOR PaTTERNS. NORAMALLY 
$ALL THE Biss PRESENT ARE C TELY 
ITTEN W 1 ee PATTERNS, AT THE 


-SBTTL ACT11 HOOKS 
SUESEERUUUUDEUESOSESEDRIOEENELESEUEEEDEDRDDEREEEEOEENESEROUEO® 
S REQUIRED BY ACT1 
g _— ;SAVE PC 
SENDAD ;;1)SET LOC.4& TO ADDRESS OF SENDAD IN .SEOP 
3;;2)SET LOC.S2 TO ZERO 
3; RESTORE PC 


;KT11 REGISTER DEFINITIONS 
‘SBTTL MEMORY MANAGEMENT DEFINITIONS 


SEG 0017 





| MAINDEC=11-D2RKH-F MACYL1 27(1006) O4-OCT-76 13:29 PAGE S | 
| OZRKHF.P11 22-SEP-76 08:57 MEMORY MANAGEMENT DEFINITIONS SES O0i8 
63 ;#KT11 VECTOR ADDRESS 
| 395 o0260 MMVEC= 250 
| os ;#KT11 STATUS REGISTER ADDRESSES 
177572 177572 
5 te eis 155855 
211 177576 SRe= «177576 
ele 172516 SR3=—s«172516 
| 513 ;#KERNEL “I” PAGE DESCRIPTOR REGISTERS 
216 172300 KIPORO= 172300 
ie! Bir 302 KIPDRI= 172302 
| 28 172304 i = i 
17, 306 KIPDRY= 1 
|B teh Kloees 178s 
ee3 72 KIPOR7= 153te 
gee ;*KERNEL “D™ PAGE DESCRIPTOR REGISTERS 
| p27 172320 KDPDRO= 172 
«= 15354 KDPDRS= 175354 
230 55350 KDPORS= 172326 
221 172 KDPOR4= 172330 
Po ae 72232 KDPDRS= 1 
BB 172334 KDPOR6= | 
| ez 72 KDPDOR7= 172336 
e36 ;#KERNEL "I" PAGE ADDRESS REGISTERS 
238, 172340 KIPARO= 172340 
| os 172342 KIPARI= 172342 
| Bao 172344 KIPAR2= 172344 
241 172346 KIPARS= 1 
Bue 172350 KIPARY= 172350 
| pag 172352 KIPARS= 172252 
244 172354 KIPARG= 172354 
ets 172356 KIPAR7= 172356 
a4 : #KERNEL “D” PAGE ADDRESS REGISTERS 
249 172360 KDPARO= 172360 
250 172362 KDPAR I= 
251 172364 KDPAR@= 172364 
252 2265 
253 172370 KDPARY= 172370 
ee 17e37¢ KDPARS= 172376 72 
ts 17 KDPARE= 
25k 172376 KDPAR7= 13530¢ 
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253 .SBTTL COMMON TAGS 
fh LURE HE UT URIS toon siomee ooo 
:# 
264 
26S 001100 21100 
cs Bu BBE owe SLL SLE 
1102 900  §TSTNM: : TA TEST NUMBER 
ae Bt tRS 00 prai oe 5 te SNT BINe Ms Plat 
270 001108 SICNT: 0 covets SUBTEST ITERATION COUNT 
enh BBs Sethe: “lore [WORD 5 tt OR ERRORS 
i $ . se 
en abi eyes: a: att TER Sti 8 BYE 
11 SERRPC: -HORD $3 CONTA PC OF TE re. TENGTRUCTION 
£7 tts vate SeORDR: “WORD + ats Raye "BAD’ Da 
279 001124 do0000 SGDDAT: WORD 0 SCONTAINS "GOOD" DATA 
280 O0ll26 o00000 SBODAT: {WORD 0 ;;CONTAINS "BAD’ DATA 
281 001130 0000900 ” WORD ::RESERVED--NOT TO BE USED 
55 Botta cooemD pone Jgfareneric Won INDICATOR 
ees 901135 noo ee SINTAG -BYTE : :: INTERRUPT MODE INDICATOR 
286 001189 177570 SWR: .WORD DSuR :QODRESS OF SHITCH REGISTER 
eee Gieuer: aap Be fae al 
289 001146 177562 STKB: 177562 
53) Boites 155862 Sipe: 135eee Bi i fe ue Ree: ADDRESS 
292 901154 000 SNULL: .BYTE O ::CONTAI DUE TBRACTER FOR FILLS 
293 001155 O02 SFILLS: .BYTE 2 CONTA tN : SOF FILLER TERS REQUIRED 
294 001156 Ole SFILLC: .BYTE ie :: INSERT FILL CHARS. AFTER A “LINE FEED™ 
295 001157 000 STPFLG: .BYTE 0 :: "TERMINAL AVAILABLE” FLAG (BIT <7) Sos YES) 
ex 001160 900000 SREGAD: :WORD 0 CONTAINS THE ADDRESS FROM 
WHICH ($REGO) WAS OBTAINED 
298 001162 o90000 SREGO: .WORD 0 ss CONTAINS (($REGAD) +0) 
Sac botibe Spoose sRead: «HOD OO SF RNTAINe (Lenecaboed) 
301 1170 100000 SREG3: -HORD : s3CONTAING ((SREGAD }+6) 
30 cat fi SREG4: : tICONTAINS (( )+10) 
1174 SREGS: .WORD O CONTAINS (($REGAD)+12) 
304 001176 SREGE: WORD O CONTAINS (($REGAD)+14) 
205 001200 SREG7: .WORD 0 S:CONTAINS (($REGAD)+16) 
B Bee see gro ey 
308 001206 SBELL: .ASCIZ 207) «3779 <37?> ::CODE FOR BELL 
30$ OOlele SQUES: ASCII : : QUESTION 
310 001213 SCRLF ASCII < AC ; ;CARRIAGE RETURN 
11 001214 SLF: ASCIZ <12> 
sts 001216 177400 jjaetetttebeseeenstaeseneneneneridceaenesseenannencenaeaaaeanaes 
314 001220 177402 RKER: :WORD 177402 
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 $E9 0020 


F 
S D oy OUT, BECAUSE THE T 
OSITIVELY A erect 70 A SPECIFIC DRIVE. 


; 22 C 
| 31S oOle22 177404 RKCS: .WORD 177404 
| 18 DO 1 1 RKWC: 177 
17 O01 17741 RKBA: 17741 
18 001 17741 RKDA: 17741 
1 001 177416 RKDB: WORD 177416 
32 OOles4 17754 KWLS: .WORD 177546 ;STATUS REGISTER FOR KWLIL 
32 001236 000372 PCNTR: .WORD 250 
324 O01240 900220 VEC: .WORD 220 :NORMAL RK11 INTERRUPT VECTOR ADDRESS 
325 OOle42 O900cce2 RKSTAT: .WORD 22 :PSW TO BE USED ON INTERRUPT 
| 358 o01244 00240 PPRLVL: .WORD 240 {PROGRAM PRIORITY LEVEL=5. PRIORITY LEVEL 
328 “AT WHICH H THE PROGRAM OPERATES CAN BE CHANGED 
| 339 ‘BY ALTERING THIS LOCATION. 
| 3x0 001246 000340 KWPLYL: .WORD 340 sPRIORITY LEVEL OF THE KW1iL CLOCK SERVICE 
332 aR : 
| 333 001250 177777 SRORV: .WORD 177777 ;’SRDRV’ CONTAINS THE DRIVE No WHOOSE SERIAL 
| 


So NS 


f 
St 
mu 
8 


12Se 000 FTITLE: .BYTE 
000 FRSTRT: .BYTE 


oo 


;FLAG FOR RESTART AT 210 


| 
| 
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;THIS TABLE CONTAINS (IN ASCENDING ORDER) T 


Oran 1 TONE ied BY beontath 2° “he Te bee “aah Tele Poh te ser IF THE 


ORRESPONDING DRIVE IS AN ° 


he 
Bes 


SERPARL SSE GRR ERE Bd ISIN OES UE TORE CMO UTEOR SS San Eoe AR 





001254 000010 POR: -BLKB 10 
001264 DRVPRS: .WORD 0 ;CONTAINS TOTAL NUMBER OF DRIVES PRESENT 


IORIvE The 'SERtAL NUMmERS one KEYED IN By THE USER, IGEN THE PRO 


is STARTED WITH a 1 SET TO 1. THIS FEATURE I 
PRODUCTION ENVIRONMENT 


001266 000010 SAN: -BLKW = 10 pSERIAL NO’S FOR DRIVES 0-7 


iEvecLtE “ON BIFFERERT DRIVES. "Bich Key Te aseoctA Afeo i Tra an Ex AN EXECUTABLE 


. VARIOUS BITS OF THE KEY DESCRIBE A 
is TNOICATED "Bel OW 


;<0-2) DRIVE NUMBER ON WHICH THE COMMAND IS TO BE EXECUTED 
:<4> INDICATES THAT THE HEADS ARE BEING/OR HAVE BEEN 
; POSITIONED ON THE ORE 
: INDICATES A ‘WRT CHK’ D BE DONE FOLLOWING THE *WRITE’ 
| : <> INDICATE A WRITE CHECK FUNCTION. HAS BEEN INITIAT 
<7) INDICATES THAT A FUNCTION IS IN PROGRESS (IT IS NOT SET 
: WHEN POSITIONING IS BEING DONE ON A DRIVE) 
| :<8-10) INDICATES THe POSITION OF THIS KEY IN THE 8-KEY TABLE 
| <1) Inpice E a PUNCTISA eo CORRESPONDING TO THIS KEY HAS 
:<12> INDICATES HIGH PRIORITY FOR THE COMMAND (NORMALLY 
: SET AFT RROR OCCURED ON THE COMMAND 


; ER AN ERROR ) 
3<14 INDICATES THAT THE COMMAND CORRESPONDING TO uy ts ney HAS BEEN 


5 BEC. 
-<15> INDICATES THAT THE COMMAND HAS N COMPLETED 
; (ALSO SET WHEN COMMAND IS ABORTED AFTER RETRIES) 


001306 9000010 KEY: -BLKW 10 ;KEY FOR THE COMMANDS IN QUEUE 


THE PARAMETERS TO BE USED FOR EACH COMMAND IN THE QUEUE 
ARE STORED IN A TABLE | STARTING AT 'CMND’. BITS <8-10> 

:0F THE COMMAND KEYS Kee, ---KEY8) ARE USED 1 POINT 
:TO THE RIGHT SET OF PARAMETER 


; WORD 1 CONTAINS RKDA TO BE USED 

; WORD 2 CONTAINS ae FUNCTION BITS ONLY) 
; WORD 3 CONTAINS RKWC (WORD COUNT 2°S COMP) 
; WODR 4 CONTAINS RKB 


hae -11-02RKH-F 
OZRKHF 
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601326 d00040 


001426 000010 


001436 000010 


001446 
4 001456 


001460 


001462 


88 8 
ae § 


8888888 8888 88 
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COMMON TAGS ' SEQ 0022 
cMND: .BLKW 40 ;STORAGE TABLE 
Oe Put BUSY FLAGS FOR THE DRIVES. IF A DRIVE IS BUSY PERFORMING 
(INCLUDING POSITIONING) THEN BIT 7 OF rs hoe FLAG FOR THA 
A aan Ed SRG Seta Stari OE MS Ee 


HENCE "BUSY3’ WILL CONTAIN 210. NOTE THAT 10 IS THE 
OFFSET FOR KEYS (TAKING KEY AS BASE). KEY #= OFFSET(O-3)/2 + 1 


BUSY: .BLKB 10 ;BUSY FLAGS FOR DRIVES 0-7 


; THESE FLAGS WHEN SET INDICATE THAT A DRIVE IS BEING 
;POSITIONED OR HAS ALREADY BEEN POSITIONED. 


POS: -BLKB 19 ;DRIVE 0 POSITIONED 
;RETRY QUNTS FG FOR rf TIC ON ON A DRIVE THE FUNCTION IS ABORTED 
30N A DRIVE WHEN Be RET ie UPR T REACHES 9 
RETRY: .BLKB 10 ;DRIVES 0-7 RERTY COUNTS 
WCFLG: .WORD O F BIT 15 IS SET WRI 
Pa OWING te WRITE. uae o-3 ontain TH THE 
SET TO KEY® (FROM BASE=KE 
QSCNT: .WORD OO THIS IS A COUNT FOR KEEPING TRACK OF THE TIME 
: TAKEN BY ALL COMMANDS IN THE QUELE. 
IF THIS COUNTS DOWN TO O AN ERROR IS REPORTED 
PRSFNC: .WORD sCOTAINS INFO ABOUT THE PRESENT COMMAND 
‘BEING PERF ON THE 
PSTFNC: .WORD :CONTAINS INFO ABOUT THE COMMAND PERFORMED 
‘BEFORE THE *PRSCMND’ 
CICNT: .WORD 0 sTHIS IS A COUNT-TIMER USED FOR KEEPING TRACK 
CICNTi: :WORD 0 OF THE TIME TAKEN BY ANY FUNCTION TO BE 
:COMPLETED. IF THE COUNT GOES TO 0 AN ERROR IS REPORTED. 
TIMER: .WORD O 
ERCODE: .WORD 0 
ORVPTR: .WORD 0 
CNT: .WORD 0 
QDRV: .WORD O ; TEMPORARY REGISTERS USED BY *GENSRQ’ 
QCYL: :WORD 0 ; ROUTINE TO STORE VARIOUS PARAMETERS 
QSUR: .WORD O OF A COMMAND AS THEY ARE GENERATED. 
QSEC: .WORD O 
SEUSAD: “WORD 0 
QWRCNT: “HOR 5 


KOe2 
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;THIS TABLE CONTAINS VARIOUS MAPPING FACTORS TO SE USED 
dal orm metic carina Adena ences smart 


- WORD MAPPING FACTOR FOR GENERATING RANDOM DRIVE NUMBER 
= Hg SEG Ester Fee LS 

SB RSeIR EAE FR Baa 
: - SL REET NRA TERE ORES SRE LAE 
peer “eve 8 ;FOR *INTHND ’, CLEARED ON ENTERING HANDLER 


;FOR *INTISK’, SET ON ENTERING HANDLER 


SAVKEY: .WORD 0 
ECOUNT: .WORD 0 


; THIS TABLE CONTAINS COUNTS FOR THE OF OF ERRORS OCCURING ON A 

‘DRIVE (NOTE: ONLY THOSE ERRORS WHICH POSITIVELY ATTRIBUT TO A 

; SPEC FIC DRIVE). THE COUNT KEPT ONLY IF SWITCH 2 IS SET, WHEN THE COUNT 
ACHES THE MAXI ( DROPPED FROM 





HE MUM ALLOWABLE (USUALLY 3) THE DRIVE IS 
TESTING AND IS TAKEN OUT OF THE DRIVE SELECTION TABLE. 
00is42 000010 ERORV: .BLKB 10 ;COUNT FOR DRIVES 0-7 
0015Se 900000 KWHR: .WORD 0 ;COUNTS HOURS (2°S COMPLEMENT) 
001554 000000 KWMIN: .WORD 8 cours pe aN 3 tat a 
001556 000000 KWSEC: .WORD (2°S COMPLEMENT 
001560 900000 KWCOUNT: .WORD 0 COUNTS eps KWL (e’S COMPLINT) 


; THIS T CONTAINS COUNTS FOR HARD ERRORS ON A eee 
Ex Meche WILL CONTAIN THE TOTAL NUMBER OF HARD ERRORS SECURED ON 


001S6e 000010 HECN: .BLKW 10 ;DRIVE 0-7 HARD ERROR COUNTS 
;THIS TABLE CONTAINS COUNTS FOR SEEK ERRORS . 
;0N A PARTICULAR DRIVE. 

001602 900010 SKECN: .BiKW 10 ;DRIVE 0-7 SEEK ERROR COUNTS 


WE SESE SESS SEER E EEE 


;THIS TABLE CONTAINS COUNTS FOR SIN ERRORS ON A 
;PARTICULAR DRIVE 


Ocise2e 000010 SINCN: .BLKB 10 ;DRIVE 0-7 SIN COUNTS 
7TH TA TS FOR WRITE CHECK ERRORS 
THAT oc ar ae INS COUNTS ITE 


BUREN 


D ON A PARTICULAR DRIVE 
509 


o--eoreeoroeree or oor — + 


| MAINDEC-11-DZRKH-F 
| OZRKHF.P11 e2-SEP-76 08 


19 coi D001 





003672 900019 


ee 
28 


001712 000010 


rapt 27 (1006) 
:§7 






LOe2 


04-OCT-76 13:29 PAGE 11 
COMMON TAGS 


$E6 0024 


WCECN: .BLKW 10 ;WCE COUNT FOR DRIVES 0-7 


seas Se ye Re. eit *¢ CHECK SUM ERROR THAT 


eSECN: -BLKH 10 ;CSE COUNT FOR DRIVES 0-7 


THT eat CONTAINS COUNT OF NUMBER OF daa Viet 
WERE ABORTED ON A PARTICULAR DRIVE. 
FONCTION IS ABORTED ONLY AFTER DOING RETRIES 
ABORT: .BLKW 10 ;ABORT COUNT FOR DRIVES 0-7 
;COUNTS FOR NUMBER OF DATA ERRORS THAT OCCURED ON INDIVIDUAL DRIVES. 


DATER: .BLKW 10 ;DRIVES 0-7 
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buise? 
O90610 


020116 
020107 
O44S22 


040505 
020124 
041440 


040412 
042105 


i 
051531 
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NWRTL: .WORD 
NWRTH: .WORD 
.BLKW 
NROL: .WORD 
NRDH: . WORD 
.BLKW 
PCMND: .WORD 
- WORD 
- WORD 
‘BS 
BASEBA: .WORD 
MAXBA: .WORD 
REPCNT: . WORD 
XXDPMD: .WORD 
;ASCII MESSAGES 
MSG1: 


MOe2 


Gt tT a OF WORDS LRTTSEN ON DRIVE Oe 
14. if Were a oR pe a 
0 sLO WORD: 2 WORD COUNT GIVING TOTAL 
0 HI WORD: & OF WORDS READ ON DRIVE O 
14. :FOR DRIVES 1-7 
CMND POINTERS TO PARAMETERS FOR COMMANDS IN QUEUE 
CHND+ 10 :POIN COND COMMAND 
H ;POINTER 19 FOURT OMMAND 
SNeTaO POINTER 19 F FIFTH HeSeHAND 
CMND+S0 :POINTER TO SIXTH COMMAND 
CMND sPOINTER TO SEVENTH COMMAND 
CMND+70 :POINTER TO EIGHTH COMMAND 
0 a THE LOWEST BUS ADDRESS STARTING WHICH DATA TRANSFERS 
Sarat 3 He HIGHEST BUS ADDRESS TO WHICH DATA TRANSFERS 


SNTAT S THE, REDET SAIL COUNT- THE NUMBER 
TIME TS WILL BE GENERATED. WHEN THIS 


9 BL. The <The Re 18 NOTRE “i TRUE AND OF nie a, it yim KIND 


Te eSOINT iat PEO SAETER T TYPING OUT OUT pe cas END IF 


;PASS MESSAGE 
0 sLOM BYTE CONTAINS enoness OF RKOS DRIVE 
PROGRAM LOADED FROM; HIGH BYTE 
‘CONTAINS THE RKOS *XXDP’ CODE: 


<15><12>/SKE/ 


-ASCI 
MSGe: .ASCIZ<15><12>/WCE/ 
eg -ASCIZ<15><1e> 


-ASCI 


/CSE/ 
€15><12>/HARD EROR/ 


MSGS:  .ASCIZ/ ON DOING / 


MSG6: -ASCIZ 
MSG7: .ASCIZ 
MSG8: .ASCIZ 
MSG9: .ASCIZ 
MSG1O: .ASCIZ 
MSGi1: .ASC 

MEcie: “Ree19 
MSG13: .ASCIZ 


/WRITE/ 


/READZ 
/WRT CHK/ 


/RD CHK/ 
<15>< 12> /ABORTED/< 15>< 12> 


/SEEK/ 
«15><12> /PC=/ 
/PHYS BA=/ 


SEQ 0025 


Oe 





= 
a 


BESSSS=8 


MSG27: .ASCIZ <15><12>/UNABLE TO CLEAR ERROR AFTER THREE TRIES/ 


Y: 

a 

+ 
AURRSSS 


Fone 


ee ee ee oe 





| MAINDEC-11-DZRKH-F MACY11 27(1006) O4-OCT-76 13:29 PAGE 12 ; 
| OZRKHF.P11 © 22-SEP-76 08:57 COMMON TAGS SEG O02 
| 
‘oie 7018 020117 MSG14: .ASCIZ <15><12>/NO DRVS PRSNT/ 
| i ! oa MSGIS: .ASCIZ <15><12>/DRVE # DIDN'T INTERUPT AFTER / 
71 
116 OSi195 a 
Es 0 8 O43101 
o3 01 l2 OS4SOS MSG16: .ASCIZ <15><12>/KEY-8 BUSY-7/ 
1 
I. : i patter MSG1?: aH 7 SR NO/ 
) 98 MSGI8: . 43/7 
| 33 1 047522 MSG19: .ASCIZ <15><12>/ DROPPED DRIVE @ / ’ 
| iB 
| So501 OS3111 MSG20: .ASCIZ <15><12>/DRIVE/ : 
«BES Se a Gh x 
3 ° se / 
be o44s22 re (15><12>/DRIVE WROS WRITN WROS READ CSE WCE DATERR HE / 
 ~—s« 6B «~O024O4 o4e526 051127 
603 051504 
t 2 
ow BS 
| 1 
14 1 
15 O0e456 4254 
| ig 020040 020105 
18 74 1s OS3111 MSG26A: .ASCIZ <15><12>/DRIVE SKE ABORT SIN/ 
| 1 1 020040 
ei 0440 
Sc 3 

£5 Bi 

ESS 76 O51 S 23 

I MSG28: .ASCIZ <15><12>/ERROR CONDITION CLEARED ON RETRY ® / 

«BP OBEY BB5PE8 Buetié 

bse sell 047511 Oe0116 

0461 o42522 

634 002634 020104 047117 951040 

635 O0e642 OS2105 021440 

£35 Bose eats O44524 O42515 MSG29: .ASCIZ <15><12>/TIME / 
Pee. DOSEED 000040 ee 


o 
3 


- * ait, a8 — a =. -.... .. EES. _ luc ~- > = 





oor oe oer ee ee - - -—- 


| | Bo3 
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| OZRKMF.P11 22-SEP-76 08:5 ERROR POINTER TABLE SEG 0028 
| Ys .S8TTL ERROR POINTER TABLE 

ee :#THIS TABLE BLE CONTAINS THe INFORMATION FOR FOR EACH ERROR THAT oft occur. 

ae poi Stree, fy Tes fur Rue iNoicaves need aT Tren ih te THE Tee 1S PERTINENT. 

BSC oN Bch ITEM i of Trot T CONTAINS M POINTERS EXPLAINED AS FOLLOWS: 

53 :* EM ¢sBOINTS TO THE ERROR MESSAGE 

EES i} DH INTs TO Sit DATA HEADER 

Fee :# be ibe Poin 12 15 T Beta FORMAT 

ESE 

65? 

O Biapares: SHER 

£60 #1. £ ERORe IN Megs Ct OF HE PROGRAM - ERROR NUMBERS SELOW 100 

561 ie, ERRORS IN XERCI sR ie OF THE PROGRAM - ERROR NUMBERS EQUAL 

2 ;#T0_ AND GREATER 

63 a THE T BONT RING OOORE INFORMAT ION ON THESE 

ees S#THE FOLLOWING ERRORS OCCUR IN THE EXERCISER PART OF THE PROGRAM. 

BEE 

6&7 sITEM 61 

68 

&6S 027530 EMI sERROR ON WRITE 

670 O0c670 O31 OH! :BC RKCS RKER RKDS KDA 

671 O0c672 O32 OT] :SERRPC $REGO SREGL SREG2 SREG3 

672 O0ce74 6 

£73 

pre ITEM 2 

S76 002676 EM2 ATTEMPT TO INITIATE FUNCTION ON ‘BUSY’ DRIVE 

£77 902700 O31674 He :PC DRIVE 

678 002702 O32334 OTe :SERRPC $REGO 

679 002704 0 

£80 

ped ;ITEM 3 

663 002708 027621 EM3 ;CONTROL READY NOT SET 

684 002710 O31 OHI :PC RKCS RKER  RKDS KDA 

685 O0e7le O32 O71 'SERRPC SREGO SREGL SREGe  SREG3 

cee 002714 doo000 \ 0 

686 sITEM 4 

68S 


£ é iy MY spear ADY NOT SET 

ca; fosrss Seieee at SOTTO NOT ER RKDS. «KDA 

632 O0e72ee 032320 OT1  SERRPC SRECO $REG1 S$REG2 $REG3 

244 002724 900000 0 

Pe ITEM «6S 

637 002726 027667 Ems s CONTROL READY NOT SET AFTER ia ibaa ON ISSUING SEEK : 
&3& 002730 O31lb26 DH1 RKER RKDS 

69S O00e732 032320 DT) t SERRPC SREGO $REG] S$REG2 SReaa 





z 
& 
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11 22-SEP-76 08:S7 ERROR POINTER TABLE 
002734 900000 0 


; ITEM 


; WRONG BITS IN RKCS EXPECT SEEK 
:PC RKCS RKER RKDS  RKDA 
:SERRPC SREGO $REG1 SREG2 $REG3 


GR 
BRB 
" “a ogey wr 


: ITEM 
002745 63003 ; BUSY’ FLAG CLEAR ON INTERRUPTING DRIVE 
002750 pales :PC DRIVE 
002752 DT2 :SERRPC $REGO 
062754 900000 0 
sITEM 10 
002756 9030060 EM10 : "POSITIONING’ FLAG FOR INTERRUPTING DRIVE CLEAR 
002760 031674 DHe 3PC 
O0e7be 032334 OTe ;SERRPC SREGO 
002764 000000 0 
sITEM 11 
002766 030135 EM11 ;"ERR'OR SET AFTER FIRST INTERRUPT ON ISSUING SEEK 
002770 031626 DH1 sPC RKCS RKER RKDS RKDA 
OGe772 932320 OT1 ;SERRPC SREGO SREGL SREG2 SREG3 
002774 000000 0 : 
sITEM le 
002776 030215 EMle2 3 SCP SET AFTER FIRST INTERRUPT * ISSUING SEEK 
003008 Q31626 DH1 = RKDS RKDA 
00300e 032320 OT!  SERRPC SREGO SREG1 SREG2 
003004 000000 0 
sITEM 193 
003006 030267 EM13 ;CONTROL_ READY NOT SET yA seEX DONE INTERRUPT 
002010 O31626 DH1 :PC RKCS RKER RKDS RKDA 
00301e 032320 DTl : SERRPC SREGO SREGl SREG2 S$REG3 
003014 900000 0 
;ITEM 8614 a 
003016 d30342 EM14 ; INTERRUPT ING ORS (SEEK DONE) WAS NOT ‘BUSY’ 
003020 031626 OH) :PC RKCS RKER RKDS ~-RKDA 
003022 032320 OT1 : SERRPC $REGO SREG1 S$REG2 S$REG3 
003024 0 
sITEM 15 


002026 030415 EM1S ;R/W/S READY NOT SET FOR INTERRUPTING DRIVE (SEEK DONE? 
003030 O3lteé DH1 PC . RKCS RKER RKDS RKDA 


7 
9 













oe eats MACY11 27(1006) O4-0CT-76 13:29 PAGE 17 
DZRKHF . PF 22-SEP-76 08:57 ERROR POINTER TABLE ° SES 0030 





756 003032 032320 OTL sSERRPC SREGO SREG] SREG2 $REG3 
757 003034 0 
758 
759 sITEM 16 
oe 093036 030501 EM16 = ; "SIN" ERROR 
a5 Boars Gases pH ec BES BE SSL BM, 
tee 
| sITEM 17 
¢ 
M17 RR’ OR I EK 
bes Seance BR05LE Bit? sg pRRR OR, ON DOING BEEK euos —RKDA 
770 003052 032320 OT]  SERRPC SREGO S$REG1 SREG2 S$REG3 
ee 003054 900000 
773 ITEM 20 
775 903056 030540 ENz0 :SCP DID NOT SET AFTER SEEK WAS DONE 
278 031626 I : PC RKCS  RKER RKDS § RKDA 
003062 032320 OT] :SERRPC SREGO SREGL SREG2 S$REG3 
778 003064 Odo0000 0 
ae sITEM el 
= pee 
7e3 eke 1711 l HSER KES RKER RKDS RKDA: ORVS 
785 003072 022342 DT21 ;SERRPC G1  S$REG2 $REG3 
7 ‘Shecu’ srecs | SRece 
003074 oo0c00 0 
oe ITEM 22 
ox p90000 0 
oe 603100 031711 DHe 1 ; SERRPC RKCS RKER RKDS §RKDA: ORV® 
734 003102 o32e342 D721 :S$ERRPC SREGO $REG1  SREG2 SREG2 
735 :$REGY SREGS  $REGE 
736 003104 oo0000 0 
re ;ITEM 23 
600 003106 030616 ;DATA (COMPARISON) ERROR 
801 Beatee 032006 ee ‘Pe RK EXPCT REC RKDA 
B02 O03il2 032320 OT] :SERRPC SREGO $REG1 SREG2 SREG3 
803 003114 0 
804 
ene ;ITEM 24 
807 OO3116 O320645 EM24  —_; CONTROL READY CLEAR ON aiNTERRUET AFTER RK FUNCTION 
808 sete Ozibet OH] PC KCS RKER RKDS RKDA 
80S 003122 O32 OT1 ‘SERRPC SREGO SREG1 SREG2 S$REG3 
003124 000000 0 


coco 
oe 
© 


= ee ee ee eee 


FO3 


sae ao yp 1 27(1006) O4-O0CT-76 12:29 PAGE 18 
OZRKHF 22-SEP-76 O08:S ERROR POINTER TABLE SEG 0031 


| 
| g12 LITEM 25 
814 903126 900000 0 
RKER RK RKDA IVE # 
| Bie Besiae Bassey RHEE «Sk erpc SHEGO ShEcI Seece «=o SREG? «| GREG 
| gi 003134 900000 0 
gis ITEM 2 
820 
821 903136 030721 EM26 = s STUCK _IN LOOP, 8 G-COMMANDS SHOULD BE DONE BY NOW 
§22 140 031626 OHI :PC RKCS "RKER RKDS RKDA 
Ee2 Boat se S35380 pri !SERRPC $REGO $REG1 SREG2  SREG3 
ESe 144 
236 sITEM 27 
827 
gee 903146 Ene? sATTEMPT TO DO WRI BITE CHECK K BEFORE WRITE 
1 p30 : ae KEY TION 
| B30 903152 pea br103 PC SREGO  $REG1 
$32 
| 833 ;ITEM 30 
E2 003158 031035 EM30 - ; ATTEMPT TO REEXECUTE A COMMAND IN PROGRESS OR ALREADY FINISHED 
83 003160 032211 DH30 02s: PC KEY 
| 37 OO03l62 32334 OT2 :SERRPC SREGO 
E38 803164 do0000 0 
| ae 4 sITEM 31 
«MB «-OOZ1EG 031130 EM31 ; "FUNCTION IN PROGRESS’ FLAG FOR INTERRUPTING DRIVE IS NOT SET 
B43 903170 031674 DHe :PC VE 
/ B44 603172 032334 OTe :SERRPC SREGO 
| es 003174 00000 0 
847 ;ITEM 32 
| Ess 002176 031221 Ene ;UNEXPECTED DRIVE. INTERRUPTED 
| Ee pessre B3 nits *SERRPC SREGO  SREG1 
eee 003204 00 0 
es -ITEM 33 
| ’ 
«pgs 
M2 ; WRONG FUNCTION CODE IN RKCS AFTER INTERRUPT 
Bes possi Basies i Beet Ree tD 
G58 O032le O2240e2 OT103  SERRPC $REGO SREGY 
e53 003214 900006 0 
eel sITEM 634 
863 003216 031330 EN34 ©; DRIVE READY CLEAR 
Bre Dos85e pseSeR pet SE erpc Sheco | SREGl © SRECE | SREGS 
a ines 


GO3 


MAINOEC-11-DZRKH-F MACYI1 27(1006) O4-O0CT-76 13:29 PAGE 19 


DZRKHF P11 22-SEP-76 O8:5° ERROR POINTER TABLE 
ees ITEM 8635 
a? 003226 031347 pos ;DRIVE POWER LOW “ - aca 
Boh POSS) SELeee a ee SR a 
2 003234 000000 0 
875 ;ITEM 3 
ge 003236 O313E5 EM36 ;DRIVE UNSAFE 
878 003240 031626 DH1 : :PC RKCS RKER RKDS RKDA 
te ppacis p3eae8 gt ;SERRPC SREGO S$REG1 SREG2 S$REG3 
881 
ees sITEM 37 
B84 O03246 031401 EM37 ;WPS SET ; 
885 O03e50 031626 DH1 sPC RKCS -RKER RKDS RKDA 
B86 003252 932320 DT1 ;SERRPC SREGO SREG1 S$REG2 S$REG3 
887 003254 000000 0 
559 : 
eay :*THE FOLLOWING ERRORS OCCUR IN THE NON-EXERCISER PART OF THE PROGRAM. 
B92 : 
4 sITEM 100 
89S 003256 O30615 pes baa (COMPARISON) are “a 2, 
Bay posses passe8 BHT? SE erec Sheco | SREG] SRECE SK 
a4 003264 900000 0 
ay sITEM 101 
o05 003266 031411 EM101 $ NTELEY DID NOT OCCUR AFTER gf 

003270 O31626 DH1 PC RKCS RKER RKDS RKDA 

904% 003272 032320 DTl : SERRPC $REGO S$REG1 S$REG2 S$REG3 
ae 003274 900009 0 
Fh sITEM 102 
30S 003276 9031451 EMi02 ;°ERR’OR SET 
$19 003300 031626 DH1 :PC RKCS RKER RKDS RKDA 
$11 003302 O32320 OT1 : SERRPC SREGO SREG1 SREG2 S$REG3 
ais 003304 900000 0 
aie sITEM 103 
$16 003306 O314E5 —EM103 ;RKDA INCREMENTED WRONGLY 
$17 003310 932163 DH103 86; PC Cvod 
$18 O033le O32e40e DT103 ;SERRPC SREGO SREG! 
abs 003314 900000 0 
“53 ITEM 104 
$23 OO33i1& 031513 EM104  ;RKBA INCREMENTED WRONGLY 













HO3 


MAINOEC-11-DZRKH-F MACY11 27(1006) O4-OCT-76 13:29 PAGE 20 





posse? pria3 {SERRPC SREGO  SRECL 


;ITEM 86110 
| 031610 M110 ;WRITE CHECK une 
003369 = 110 ;PC RKCS RKER RKBA_  RKDA 
00336e Tl :SERRPC SREGO SREG1 SREG2 SREG3 





| OZRKHF.P11 22-SEP-76 08:57 ERROR POINTER TABLE SEG 0033 
Pe oe 163 103. ;PC XPCT RECVO 

ze 103 ;SERRPC $REGO SREGI 
| 38 ;ITEM 105 

a aa aaes ree ate sRKWC DID NOT OVERFLOW TO O 

03332 T103 :SERRPC SNEcO  SREGI 

$33 003334 000000 0 

$34 
FE ;ITEM =: 106 
9033% 031571 EM10& ©; MEX BITS INCORRECT 
«Be Be Bi Hime Seto Se BEL BL 
«Bg BR Biba : 

ee sITEM 107 

944 00334 030616 EM23_ _;DATA (COMPARISON) ERROR ON READ 

945 003350 0321 P XPCT  RECVD 

zs 

gue 

345 

$50 

31 

2 

963 

354 





MAINDEC$11-DZRKH-F 


DOZRKHF P11 


BER RE ORS ose tolal Anco eine tee ent 


: 


Sicisteinistinisteiee rena tt 


oOo 
— 
© 


22-SEP-76 O08 


18823? 


agp lg 27( 1006) 


bees 


00017€ 


001134 


103 


04-OCT-76 13:29 PAGE 21 
ERROR POINTER TABLE 


;IF POWER FAILED, ON RETURN OF POWER ENTER HERE. 


PFSTRT: JSR WATIME 
NCB FRetAT WET CR ee THAT att STATISTICS HAVE 
it ie SAVED, ON RETRN FROM PWR FAIL. 


START: RESET ;CLEAR THE BUS 
eet INITIALIZE ne COMMON TAGS 
THE COMMON T 


: ;CLEAR rags om RRER 
MOV SSCMT ::FIRST LOCATION TO a3 CLEARED 
cr (R6)+ » 33CLEAR MEMORY LOCATION 

;;LOOP BAC eo 
#STAC :SETUP THE STACK POINTER 
, INITIALIZE A FEW vECtERS 


MOV SSSCOPE, JBIOTVEC ;;IOT VECTOR FOR SCOPE ROUTINE 
MOV #340, a8 fOTVEC+e  :LEVE 
Nov aSTRAP 0 eTRReVEC’ steer VECTOR FOR TRAP CALLS 
MOV SePURDN SePMRVEE® ; POwER: FAILURE VECTOR 
MOV W340 SU SURVEC +2 © ite 
MOV a. , SPADR $3 INI tal IZE THE LOOP ADDRESS FOR SCOPE 
MOV jist! THE ERROR LOOP 
;;SIZE FOR A SWITCH REGISTER. IF NOT FOUND OR IT IS 
*:EQUAL TO A "~ TUP FOR A OF THARE SWITCH REGISTER. 
MOV ae -(SP) VE ERROR VECTOR 


DSERRVEC ie ERROR VECTOR 
;}SETUP FOR A HAROWARE SWICH REGISTER 


CT 0 MRE ERRE ISPLAY REGISTER 
ot ty TO ERENCE PAROWARE aie 


3; BRANCH IF NO TIMEOUT TRAP OCCURRED 
T SWR I 


g8 49888 
8 


HE HARDWARE S NOT = -] 
S$ : BRANCH F NO TIMEOUT 
4S: Hoy #65, (SP) :SET UP FOR TRAP RETURN 
65S: MOV ;;POINT TO SOFTWARE SWR 
MOV BDisPRec,D DISPLAY 
66S: MOV SP)+,a8ERRVEC ;;RESTORE ERROR VECTOR 
ETT TYPE PR 


OGRAM NAME 
; TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
INC #-1 + RAN TIME? 


BNE £75 IF NO 
TYPE 68S TYPE ASCIZ STRING 

.SBTTL Ger vaLUE FOR SOFTWARE obi REGISTER 
TST 842 ;;ARE WE RUNNING UNDER XxDP/ACT? 
BNE a ‘BRANCH IF 
CHP SHR, aSHREG ; | SOF THARE SWITCH REG SELECTED? 
GTSHR “me tEGET SOFT-SWR SETTINGS 

69S:  MOVB  #1,SAUTOB SET AUTO-MODE INDICATOR 


70$: 


 $€@ 0034 


eee 


a ee 


MAINDEC-11 
OZRKHF .P11 


1011 
: 


“Oo 


SE RROSRERSSSS 


OBk 


b+ b+ bh bb Bb B-:  — * -*  b * & s d  -2 + = 2 hs D2 2 2 2 =o 2+ wm 8m om 


FREER LLU GR TORO OSS LRAT OG. Sa TROOR 


003630 
Oo3760 
003726 
003734 
003742 


GG Seoncmn SOseengans Gane Se 


-DZRKH-F 
22-SEP-76 


& 


0004 


012737 
013737 


013737 


S 


og 
de 


SS 


#8 
er 


Eis 


t tah 

Foofam 8 
SES es = 
ee OeWwo des 


1: 
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MACY11 27(1006) O4-OCT-76 13:29 PAGE 22 : 
08:57 GET VALUE FOR SOFTWARE SWITCH REGISTER Seo 0035 
BR 675 ::GET OVER THE ASCIZ 

gages : ,ASCIZ <CRLF>#RKII/RKOS PERFORMANCE EXERCISER#< 15> (12> #MAINDEC-11-DZRKH-F#< CRLF 
026114 000030 "MOV #SERROR, JSEMTVEC sEMT VECTOR FOR ERROR ROUTINE 
001244 900032 MOV PPRLVL, a#EMTVEC+2 : 
O22460 900100 MOV SKUSRVE, JSKWLYVEC *KWIIL CLOCK SERVICE 
001246 000102 MOV KWPLYL, J#KWLVEC+2 LEVEL 7 


; THE FOLLOWING CODE FINDS OUT THE PROGRAM CONTROL MODE: 
;PAPER TAPE (MANUAL), ACT11, RKDP CHAIN OR DUMP 


Gh ROP AAR RO RRDBEVICE stoma 
:BR IF NOT ) 


BNE STe :BR_IF 
MOV 40, XXDPMD GET EVICE NDICATOR AND DRIVE ADDRESS OF 
CMPB 810, XXDPMD : VAL : DRIVE ADDRESS ” 
Ree XXDPMD ir aNGe To DRIVE ZERO 
2s: TST 42 ‘CHAIN MODE OR ACTIi AUTO ACCEPT ” 
BEQ ?BR IF NEITHER 
TYPE 2$ s ASCIZ STRING 
BR 1$ *:GET OVER THE ASCIZ 
5g SASCIZ <15><12>/NOT TESTING DRIVE 7 
CLR -(SP) ;CLEAR WORD ON STACK 
002060 MOVB_  XXDPMD, (SP) 5GET DRIVE ADDRESS 
TYPOS :TYPE THE ADDRESS 
.BYTE 1 ONLY 1 TE 
pvr : : S ING ZEROS 
T2 :GET OF DRIVES 
177777 3 INC a-1 ‘FIRST TIME THROUGH HE 
BNE ST2 :BR IF NOT 
004100 TYPE 745 >; TYPE ASCIZ STRING 
BR $35 Age T OVER THE ASCIZ 
uiZ4s: “ASCIZ <15><12>/T0 TEST’ DRIVE / 
CLR -(SP) ;CLEAR WORD ON THE STACK 
002060 MOVB  XXDPMD, (SP) :GET DRIVE ADDRESS 
TYPOS :TYPE THE DRIVE RODRESS 
.BYTE 1 ‘ONLY 1 CHARACTER 
“BYTE 0 :SUPRESS LEADING ZEROS 
004142 TYPE 76S >; TYPE ASCIZ STRING 
*:CET OVER THE ASCIZ 
izes ASCIZ / HALT PROGRAM, REMOVE RKDP PACK AND REPLACE IT/<15><12> 
004222 TYPE 72S :; TYPE ASCIZ STRING 
BR 7$ :GET OVER THE ASCIZ 
45288 -ASCIZ /WITH A WORK PACK; CLEAR LOCATION 40, AND RESTART PROGRAM/ re 


: CON. RESET 
001264 CLR DRYPRS ;FIND WHICH DRIVE #°S ARE PRESENT 


fe 


TEER ER RAR te 


A 
a 
ee C) 


SEGRR TOR Boe GRRE 


0 +0 0 bs + B+ + Oo + 0 Os 2 2 8 0 8 8 = 0 = 0 8 + 2 2 he 2 + 2 dO 2 + 2 be 2 oe 
Re Sat NON Ew OBB E OHO 
—-OWONOWM£ WMO jo 


0 -* 0 0 & <b b+ &- B= &— 0 -—* b= b= B28 FO —* bb Bo bb 8 


C 





il 


004332 
004334 


50 62 Ce b UE 


: 


=11-DZRKH-F 
Pll 22-SEP-76 


ot 


-—-e—- 


Be 
Si 


su 


C-Bh 
se 


Bee 
nae 


oe 
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08:57 


001 
O01 


001262 
ae 
poded0 


002372 


017777 
001502 


020000 


020000 
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04-OCT-76 13:29 PAGE 23 
GET VALUE FOR SOFTWARE SWITCH REGISTER 
CLR RO 
CLR Re ‘ 
CLE POR ;CLEAR DRIVES PRESENT TABLE 
R +2 
CLR POR+4 
CLR POR +E 
ss OY BS 7 
. I , IRKDS Het IN poe 
NOV nese ne” ORY : LOAD RIVE 8 ADDRESS INTO QORV 
ist XXDPHD oer ConDeD FROM AN RKOS ? 
CMPB «RO, XXDPMD *L + OADED me THIS RKOS 7? 
BEG Fa] ;BR 
Ss yD Omi +O ORE ADDRESS TN KEY TABLE 
INC DRYPRS : NURBER OF DRIVES COUNTER 
3S: ADD #20000, R2 *NEXT DRIVE ADDRESS 
INC RO NEXT DRIVE NUMBER 
CMP #8. ,RO : ALL DRIVES??? 
BNE 1$ ‘LOOP TILL DONE 
MOV DRVPRS, R3 :FIND WHICH DRIVES ARE TYPE F 
BEQ ST4 ‘BR IF NOT DRIVES PRESE 
MOV #POR, RI 
CLR RO x 
CLR R2 
TYPE MSG20 
MOVE tR1). Re ;GET DRIVE NUMBER 
MOV ,RO 
BLT 
TYPE  ,MSG24 
MOV R2,-(SP) ;TYPE THE DRIVE NUMBER 
TYPOS 
.BYTE 1 
"BYTE O 
ele ;MOVE DRIVE NUMBER TO BITS 15,14,13 
ROR R2 ?BITO TO CARRY 
ROR Re :BITO TO BITIS 
ROR Ro :BITO TO BITI4 
ROR Re :BITO 19.8 8IT13 
BIC #17777,Re ;CLEAR ANY EXTRANEOUS BITS 
MOV R2, QDRV 
DRV. RESET ;RESET THE DRIVE VIA QDRV 
BIT #20000, R2 sEVEN DRIVE NUMBER??? 
BNE - CLEAR BIT 
BIS #20000, R2 ama IT AN ODD DRIVE 


SEQ 0026 


yd 
So 


(OPO. VE £ HOD VEL ee OO SoSH 


GH HG Ha Eg 


ee re 


er ee 


C-11-DZRKH-F 


DZRKHF.P11 22-SEP-76 
Oo4sse 42702 
Oovees 8 
004570 001420 
2777 


i 
Fi 


+ -+ +o +b -< b+ b+ B+ & 2b 2 bo + 0-2 2-2-2 2b +o = 86 +0 & +> <b> OB +O -*+0 = 0+ +p 
0 +b-+ > + 0+ >< b-< & << 6-+ &-< b+ & +b ++ +b 96 +0 +6 20 +» © b-<o-+ 2b 2b +b +m +m + 0-0 b+ 


uw 
+ 
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174426 


174272 





04-OCT-76 13:29 PAGE 24 | 
GET VALUE FOR SOFTWARE SWITCH REGISTER - SEQ 0037 
S$: BIC-  s20000,Re :MAKE IT AN EVEN DRIVE 
6$: MOV _—~R2. BRKDA 1 THE NEW 
BIT #200, ARKDS tREKE SURE OPI He te ey systen 
860 0«2Cs«éSS tIF NOT, ESP rire reer 
MOV #11, RKCS :START A SEEK TO CYL 0 
CON. RDY SWAIT FOR 
EI’ 400, SRKDS ig 1 IT IN tiger? 
BISB #200, (R1) sYES - SET THE F TYPE SIT 
TYPE  ,MSGeS 
7$: BIT —«-&100, IRKDS sWAIT FOR HEADS TO STOP 
B60 Oti«é‘?7S : 
8§: TSTB  FRSTRT 
BNE «9S 
BIT  #SW1, aSWR :SERIAL NO. SW SET? 
BEG 3s sNO 
T /MSG1? TYPE * 
i eee FROM Try INPUT 
eSLSséRO ISAVE SERIAL NO FOR THE DRIVE 
MOY —«(SP)#, SRNO(RO) 
9S: INC Rl 
OE ORS 
acts 
TYPE , SCRLF 


» 2 


MB C-11-DZRKH-F 
D -Pll 22-SEP-76 08:5 


- 
a 


FO = BB URAL atO ODD VOR Echo Oe Otte conde ube dP an EtohOr- Coe ae 


Pe ne ne ee en ed ed ed ed ed ed ee ee ee ee ee ee eet ee et ee 


= 
R 
8 


MO3 


HACY31 27(1006) -D¥-OCT-26. 13:89, PAGE 25 REGISTER 


174114 


5 OR IS THE HIGHEST BUS ADDRESS (MEMORY) TO WHICH DATA TRANSFERS CAN 
iE cee es Tee beers NG THE FOLLOWING ALGORITHM: 
s1. IF KT11 IS NOT PRESENT, 


A. ND THE PROGRAM IS RUN R XXDP, THEN THE TOP 1.5 K IS RESERVED 
:QND THE 'MAXBA’ IS Se APUTED (aL Ste -B000) 


32. IF KT11 IS PRESENT, 
:A. iB MORE THAN 28K MEMORY IS PRESENT, THEN THE MAXIMUM BUS ADDRESS 
3B. AND LESS THAN 28K IS PRESENT, THEN THE TOP 2k IS RESERVED FOR RKDP 
:MONITOR AND *MAXBA’ IS COMPUTED. 

‘FIGURE OUT THE AVAILABLE MEMORY AND *MAXBA’ 


sT4: JSR PC, $SIZE -GO SIZE THE MEMORY 
nov aBASEBA, Re t RIFTALIZE POINTERS 
rst sit i - :KT11 AVAILABLE? 
MOY STBK, RO GET THE LAST BANK OF MEMORY 
CMP ab nica :28K OR MORE? 
BGE 3$ : YES 
SUB #40,R0 ;BACK UP 2 K’S (RKDP MONITOR, ETC.) 
MOV #-6/R1 : ORM THE MAXIMUM BUS ADDRESS 
FOR DATA TRANSFER 
1S: ASL RO 
INC Ri 
BNE 15 
SUB #2, RO 
2s: BR 6$ 
3S: MOV #147776, (R) ;FOR 28K OR MORE, THIS IS THE *MAXBA’ 
4g: MOV SLSTAD, RO :KT11 NOT PRESENT, GET THE LAST 
‘AVAILABLE ADDRESS 
Ss: TST aeH0 ;*XXDP’ LOADED PROGRAM ? 
SUB #200, RO NO, SAVE THE LAST 320 WORDS 
8S: SUB #6000, RO :SAVE THE LAST 1.SK OF MEMORY (RKDP 


t 

:MONITOR, ETC.) 
6S: MOV RO, (R3) :SAVE THE MAXIMUM ADDRESS (MAXBA) TO 

“WHICH DATA TRANSFER CAN BE DONE SAFELY 
73: MOV #PGEND, (R2) :BASEBA’ 


BIT #SWO6, ISWR 
T3 


BEQ 
TYPE 65$ ; TYPE ASCIZ STRING 
4g *:GET OVER THE ASCIZ 
jigs: “ASCIZ <15><12>/TYPE OCTAL BUS ADDRESSES FOR DATA XFER, BETWEEN / 


Oe OO EOS On? ORDER Te” BND THE MAXBAT TS COMPUTED ($l ¢TRO-S00). 


SE 0038 


MAINDEC-11-DZRKH-F 
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+ 


: 


ee ee ee ee ee 


WO NOUN £ lore 


+0 --+b <& + 0-= b-< pb -=+ DB Bs 
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04-OCT-76 13:29 PAGE 26 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


718: 


ST3: 


1$: 


MOV 

T 

BR 
-ASCIZ 


MOV 
TYPOC 


(R2),-(SP) ; *BASEBA’ 
sss ASCIZ STRING 
. ;:GET OVER THE ASCIZ 


(R3),-(SP) ; *MAXBA’ 


a SET OVER tHe naciz 


<15><12)/L0 unt 


(SP)+, RO 


RO, (R2) ;CORRECT LO LIMIT? 
e. (R3) ;CORRECT LO LIMIT? 
RO, (R2) ; "BASEBA’ 
718 5s TYPE fects STRING 
HE ASCIZ 
<5) «12> /HI Limit y 
(SP)+. RO 
RO, (RS) ;CORRECT HI LIMIT? 
RO, (Re) ;CORRECT LO LIMIT? 
RO, (R32) ; *MAXBA’ 
MAXBA, 837476 § ;8K MEMORY - CLOBBER XxDPT 
#37476,MAXBA § ;BUT SAVE LOADER 
ERSTRT : PROGRAM RESTARTED AT 210? 


:NO 
XRCSR :YES, SKIP TEST 1 T0 7 


-S€6 0039 


z 
he 


2 
Z 
h 


ee ed ed ed ed ed ee ee ed 
atta ttt 
oO ~ £ eC) 





BO4 
1-D2RKHAF MACYL1 27(1008) O4-O0CT-76 13:29 PAGE 27 : 
22-SEP-7— 08:57 GET VALUE FOR SOFTWARE SWITCH REGISTER SES D040 
: THIS IS THE BEGINING OF THE CONSTRAINED TESTS AIMED AT CHECKING TH 
:DIFFERENT BOUNDARY CONDITIONS OF RK11/ 
“FIND OUT THE DRI R TO BE TEST! 
oos276 gugrz? 001308 001476 Bea ee ey vey Neeee te Hit FO: ze PTR TO ORVe 
605305 013737 901264 001500 NOV peveks SRVENT ‘NUMBER OF DRIVES PRESENT 
Sessile Gi7737, 27A10 OCISQe NXTDRV: Mov R.GORY SAVE DRIVE s(BITS 15-13) 
Reesce fers? pps WINS ¢ bent ea onivest Oe 
05332 pee Pers" :NO, ont bed THIS DRIVE 


16 rsTl 
O0S334 000i37 007716 IMP EXRCSR ALL DONE, GO TO EXERCISER PART 





a oe 


MAINOEC-11-DZRKH-F MACY) 
OZRKHF P11 22-SEP-7— 08:57" 


126 


ee le 


o 


TTT 


* 


1 27( 1006) i PR 13:29 






£04 


PERFORM WRITE TE OF 901 WORDS (1 SECTOR + 1 WORDS) 
TEST Tee bearomn unite Ge 401 uoRes C1 SECTOR s | wOROe 


{STEST 1 WRITE 1 WORDS (Se 
geek RvR, i Hae E NCRENENTED Co meCTLY, a oon 
:ON CYL ADER B’ SORE ie ae AN AND I 


ee Tha Tats TH TRANSFER. The rato ety 
CHECKED Genes Th Foe NEXT TEST. 


‘Bata’ BA reac WRI 
 eansenberscconeseecassssnesssssesseessnecsescaesusoesossesoosen 
SCOPE 


tits, 
mov gory Ri GET RKOA 
i,Re :SAVE RKDA 
ADD 82. Re “EXPCTD RKDA AFTER WRITE IS DONE 
001110 MOV 818, SLPERR ;RETURN ADDRESS FOR LUPING 
1s CON. RESET 
OE RESET N POLLING LOGIC 
032412 28 MOV $111111,0BUF Baye RN at Fe bette 
MOV 8401. R3 ; WORD 
ISR PC, DOWRITE :GO Bo Lat 
ERROR 101 eas DID NOT OCCUR AFTER WRITE 
ISR PCC :CHECK ERROR BIT IN RKCS 
ERROR 102 ERROR IT IN RKCS SET ON DOING WRITE 
JSR C “CHECK IF RKDA INCREMENTED RIGHT 
ERROR ?RKDA pip NOT INCREMENT RIGHT AFTER 
[A WRITE OF 401 WORDS. 
ISR : CHECK If RKWC OVERFL TO 0 
ERROR : Wc DID NOT OVEREL OM 0 0 AFTER 
sh WRITE OF 40 
BIT : 
BNE : 
ADD : 
ADD : 
BR ; 





SEG 004: 





ee 


DO4 


MEINOEC=11-DZRKH-E MACYL1 27(1008) _O4-O0CT-76 13:29 PAGE 29 
| DZRKMF.P11 499 22-SEP-7— 08:57 T2 READ & CHECK THAT 401 WORD WRITE WAS DONE CORRECTLY 
) 1c + FSSSESSSSERESSSSSSSSSLSSLESSSESSSSFSSLSSLSSRELSSLSLESEAASSL ELSES 
i tiTEST 2 READ 8 CHECK THAT 401 WORD if TE WAS DONE CORRECTLY 
130 ;TH - TEST PERFORMS A READ OF THE 40 1 WORDS WRITTEN IN THE 
PELE ear Ce wee oS Tne ke MENS 
| 130% it cre SECTOR ano THE Reet OF The OS ARE ALL Senoe. 
1305 sasundehsbetokanabesussonancnenseanennetonnsenennianttotannnail 
Ea posws2 odo tér3, OPE 
l DOS4S4 013701 901502 MOV .QORV,RI :GET DRIVE 8 
1308 oS054é0 Sten S0S466 001110 MOV 81$, $LPERR tr oRESS FoR LUPING ON EROR 
1310 005466 104416 18: CON. RESET 
1311 OO5470 1044 ORV. RESET 
He 472 04416 CON. RESET 
| 4324 ;CLEAN UP THE DATA BUFFER 
1315 005474 004737 906360 ISR PC, CLEANBUF : INTO MATCH READ WILL 
| ia) oossoo 012703 001000 MOV #1000,R3 WORD COUNT 
1338 005504 004737 006250 ISR PC, DOREAD :G0 DO A READ OF 2 SECTORS 
| 1320 :FROM DISK ADDRESS GIVEN IN R1 
1321 OOSS10 104101 ERROR 101 INTERRUPT DID NOT OCCUR AFTER 
 ~‘3e "READ OF 401 WORDS WAS DONE. 
| 4323 005512 004737 oceD020 JSR PC, CHKCS :CHECK IF EROR BIT N RKCS SET? 
| [304 OO5516 104152 ERROR 102 :EROR BIT IN RKCS SET ON DOING A 
_ xs ?READ OF 401 WORDS. 
1368 005520 01 032412 MOV JR4 :STARTING BUS ADDRESS, INTO WHICH READ 
es o05524 34040 MOV Re HAS 
| 328 o055e¢ 73? O2005& JSR PC’ CHKBA ; ok E RKeA INCREMENTED RIGHT 
1228 005532 104104 ERROR 104 3 RK DID NOT D NOT INCREMENT RIGHT AFTER READ 
| 7331 opssa4 12705 177764 MOY #14. RS Or LOM Ie ERRORS. AT THE MOST 
1333 005540 O22712 1illli 2s: CMP e111411, (Re) + OoRECT DATA READ? 
| 4333 oosse4 014 BEQ 3$ :YES 
| 13 o0s54e 3348 111111 OOL1E4 MOV S111111,$REG1 3GET EXPCTD DATA WORD 
| 13% 005554 004737 OOSE44 JSR PC ERINE 1 :GET ERROR INFORMATION 
1336 104100 ERROR 100 DATA OCCURRED WHEN 
| 3337 , : OF S WAS DONE 
_ THe : THE DISK SS FROM WHERE 
| 1339 : THE DATA WAS READ INCORRECTLY 
| 1240 IS GIVEN IN THE ERROR MESSAGE 
| U34e oossee INC BS ;REPORT 12 ERORS AT MOST 
| 3343 OOS564 001421 BEG 6$ 
TH O055&— 9067 3s TST (Re)+ s INCREMENT POINTER 
| 1245 020227 023414 CMP R2,8DBUF+1002 ;CHECKED ALL 401 WORDS? 
1246 005574 901361 BNE 2 
_ 4348 00SS7— 90571 4g: TST (R2) ;CHECK THAT REST OF 377 WORDS 
1249 005600 06014 BEQ cs 
1350 005602 005027 001164 CLR SREG1 GET EXPCTD DATA WORD (0) 
1351 005606 004737 OOSE44 ISR PC. ERINF1 :GET ERROR INFO 
1352 O0S6le 1041 ERROR 100 :DATA ERROR. IN A PREVIOUS 
1353 TES! A WRITE OF 401 WORDS 
1354 1 SECTOR + | WORD) WAS DONE 


| 
: MBINDEC-11-DZRKH-F MACYLL 27( 1006) 
| DZRKHF.P11 © 22-SEP-76 08:57 
| 1 BSS 
1356 
| 1367 
1 
2 
oe 
13% 
= 
1364 OOSE14 oOs20s 
1365 005616 001404 
BE BR cow 
| iis 005626 001363 
13: 000010 
| Ht SR afew ome 
3 pbepas peeret 
1375 
138 
| 1378 
(1379 
| a 44 Ol ll 
1363 peered Bie Bott 
1383 OOSeS4 010146 1 
«(136s poeees 1 om 
| 1288 DOSEE4 905216 
‘1388 Boee Ss 16 00010 
| 1388 005674 o01405 
/ 1390 005676 032716 oo0004 
1391 001402 
1292 005704 062716 oDD004 
1393 005710 012637 001170 
13964 005714 000207 


E04 
04-OCT-76 13:29 PAGE 30 
Te READ & CHECK THAT 401 WORD WRITE WAS DONE CORRECTLY 


NOW THESE 2 SECTORS WERE 


F 
ea. ies, Done tofaecr. 


INC RS :REPORT 12 ERORS AT MOST 
cs: TST (Re)+ sALL WORDS CHECKED? 
CMP R2, sDBUF +2000 
BNE 4§ sIF NOT GO BAK 
: T 810, R1 ;WERE SECTORS 10,11 READ 
ES EB ie sey 
$12, 
BR tg oho néeae Ende SECS 10,11 
ERI 
:AT We TIME OF 


3Re CONTARNS Par BUS QODRESS (WHERE pres we OCCURRED). 
ONTAINS BAD NATE a Paar WAS READ BACK FROM DISK. 
:R1 CONTAINS DISK ADDRESS WHERE READ BEGAN. 


ERINF 1: my Phe) Skee Get Bus PO ORE SAR pare ERROR 


MOV 1,-(SP) 
CMP "sDBUF+776 ;FIGURE OUT THE DISK ADDRESS 
BGT fe :WHERE DATA ERROR OCCURRED 
DEC (SP) 
1S: INC (SP) 
BIT #10, (SP) 
BEQ 
BIT #4, (SF) 
BEQ . 
ADD #4, (SP) 
23 MOV (SP)+, $REG3 
RTS po 


SE 0043 





————— 


NAINOEC 11-DZRKH-F MACYLL 27(1006) O4-OCT-76 13:29 PAGE 31 | 
DZRKHF.P11 22-SEP-76 08:57 13 PERFORM WRITE OF 12 SECTORS + 1 WORD SEG 044 
1 iver a PERFORH MRTTE OF 12 SECTORS @ 1 OO 
SATEST 3 PERFORM URITE OF 12 SECTORS 
| sTHIS TES gtetKs FOR ANO : R BOUNDARY _ CONG 
1 PE E Gece) fo igs they ee Acc 
| Jap ivacioit bara oF ie ata Win SECTORS Beli 
i4 :CYLINDER O ( re On EEC $8 a te ia 3° 
1303 ALSO ON SECT ORS O-11, SURFACE 1 (6001TH WORD A SECT 
1405 ee sin 9 eae ambi Same aM: 
1408 005716 p9004 +613: SCOPE ‘ tiene’ 
Re Rett bere? Peete ooiiu0 Hoy aS SC PERR :LUP BR Eo To ‘18° 
1 101 MOV R1 Re 
| 1410 005734 062702 000021 ADD 82} Re 
oo ee 
i4] 4“ | ; Gey: RESET 
1414 005750 104416 CON. RESET 
| 4416 : 
| 137 00S752 012737 o44444 O32412 MOV 844444 , DBUF :PATTERN TO BE WRITTEN 
| 1419 005760 004737 006230 ISR PC, DOWRITE :GO DO WRITE 
1421 O0S764 104101 ERROR 101 s INTERUPT DID NOT OCCUR ON 
1sz@ ; COMPLETION OF WRITE 
| {423 005766 o20020 ISR PC, CHKCS :CHECK IF EROR BIT IN RKCS SET 
| 44284 005772 104102 ERROR 102 :EROR BIT IN RKCS SET ON DOING WRITE 
| 1425 005774 020034 ISR PC CHKDA :CHECK IF RKOA INCREMENTED 
, 2426 006000 104103 ERROR 103 *RKDA DID NOT INCREMENT CORRECTLY 
| 4497 !AFTER A WRITE OF 6001 (OC 
1428 (12 SECTORS + 1) 
| [428 O06002 004737 O20136 ISR PC, CHKWC :CHECK IF RKWC OVERFLOWED TO 0 
1430 006006 104105 ERROR 105 ?RKWC DID NOT OVERFLOW 
| 1431 006010 032701 ooo0z0 BIT #20,R1 WRITTEN ON SURFACE 1? 
| 1432 006014 001006 BNE TST4 YES 
tia Speoe8 p05 ADD Roh Re ;SURFACE 
| 1935 006024 Breeds 005401 MOV #5401,R3 SRORD COUNT 
| 1436 006030 000745 BR 18 :GO WRITE SURFACE 1 
} 


es aa 8 -11-DZRKH-F MACY11 27(1006) O4-OCT-76 13:29 


PAGE 32 
| OZRKHF.P11 = 22-SEP-76 08:57 T4 READ & CHECK THAT 6001 WORD WRITE WAS DONE CORRCTLY SEQ 0045 
1 437 iveet Qe READ Eh CHECK THAT GOD] WORD WRITE las DONE COReCT 
14 TEST REAQ R: CHECK THAT 6001 WORD WRITE WAS DONE CORRCTLY 
14 THIS TES CKS THAT THE 6001-WORD a — THAT WAS DONE IN THE 
1440 s PREV TOUS Test i WAS CORRECT, ESPECIALLY THE LAST 401 WORDS. THE 
144] ?FIRST WORD OF THE SECTOR(’ IN WHICH 600ITH WORD) IS WRITTEN 
1442 :I5 THE ONLY NON-ZERO WORD IN THAT SECTOR THE REST 377 WORDS ARE 
1443 *ALL ZEROS, IF THE WRITING WAS "BONE E CORRECTL 
1384 decinakettcliettalactcicnmbtehebesntatertalinntictsseummenss 
1445 906032 900004 tity: SCOPE 
1346 956034 013701 0901502 MOV QDRV,R1 ;GET DRIVE # 
144 40 062701 000013 ADD #13,R1 DISK ADDRESS FROM WHERE READ IS DONE 
1448 006044 012737 OO060S2 001110 MOV #1$, $LPERR 
144 1 Ig 18: CON. RESET 
j 4 ORV. RESET 
i 431 006056 104416 CON. RESET ‘ 
1453 O06060 004737 9006360 ISR PC, CLEANBUF ;CLEAN UP THE BUFFER INTO WHICH 
1354 ; READ HL BE DONE 
tue ELT 11, SURFACE 0 
: ie 006084 012703 001000 MOV $1000,R3 ‘WORD COUNT 
| 3459 006070 004737 906350 ISA PC, DOREAD : WORDS (2 SECS) 
| 1460 006074 104101 ERROR 10] t PRTERRUPT DID NOT OCCUR AFTER 
1461 :COMPLETION OF 
ie O0607& 004737 o20020 JSR PC, CHKCS :CHECK IF EROR BIT IN RKCS SET 
1463 O06102 104102 ERROR 102 ?EROR, (RKCS) SET ON DOING READ 
1368 906104 b12704 032412 HOV SOLE JR4 ~ $STARTING BA OF DATA BUFER 
1466 Boer is 004 O20056 JSR PC’ CHKBA :RKBA INCREMENTED CORRECTLY? 
| 1467 OO611E 104104 ERROR 104 *RKBA DID NOT INCREMENT CORRECTLY 
| {468 ppeiba BESrie Ayooud 2g fap S444" (R2) «DATA WORD OK? 
1a5¢ poe iS atts BEQ P 
1373 O06 13 O44444 OO1164 _ MOV 844444, SREGL =; NO cer uEgPoTD DATA WORD 
14 146 OOSe44 ISR PC, ERIAF 1 GET, OTHER ERROR INFO 
1973 006144 104100 ERROR 100 :DATA ERROR, A WRITE OF 6001 
| 1474 “WORDS (le SECS + 1 WORD) WAS 
| 475 :IN A PREVIOUS TEST. THE LAS 
| 1426 ;SECTORS (LAST 401 WORDS) 
| 1477 : K. THIS ERROR INDICATES THAT 
| 14 Bee at (LB (LAST BUT ONE SECTOR) GAVE 
| 4480 006146 INC RS REPORT 12 WPRORS AT MOST 
1481 O06150 O0i4el BEQ 6$ 
1482 006152 7 3S: TST (R2)+ ; INCREMENT POINTER TO BA 
1483 006154 bebee7 023414 chp Re, «BUF +1002 ‘CHECKED 401 WORDS? 
1485 906i62 905712 4§: TST (Re) ;CHECK THAT THE REMAINING 377 
1486 006164 901407 BEQ c$ *WORDS OF THE LAST SECTOR (SEC #0) 
1487 006166 005037 001164 CLR SREGI ‘WERE READ BACK AS O°S 
_ 1488 006172 004737 OO5é44 ISR PC. ERINF1 
| 3489 006176 104100 ERROR 100 ;DATA ERROR. IF WRITE WAS DONE CORRECTLY 
| 44 IN THE PREVIOUS Test THE LAST SECTOR 
| 4481 SECS + 1 WORD) 


;OF THE DATA BLOCK (le SE 1 
1492 ;SHOULD CONTAIN ONLY 1 (FIRST) WORD 


—— eee 


MACYL1 27(1006) 
08:s7 T4 





a a ee ee 


ee of 
a Sone 


;WERE NOT 6 
;REPORT 12 ER 






: PAGE 33 
& CHECK THAT 6001 WORD WRITE WAS DONE CORRCTLY 


REST 377 
rans INDICAT 


his Reo 


sae, AT MOST 


; INCREMENT POINTER 
+ ee ALL WORDS? 


;DONE CHECKI 
; YES 


:S0 SET UP F 
:G0 BACK & R 


NG FOR SURFACE 1? 


OR SURFACE 1 
EAD SURFRCE 1 








MAI! 
ZRK 


1S21 


SERRE Sa Coots 


yes a fy REeSSRaoan 


0 -*0— >= Bb & -+ p< & + &-+ b+ B+ & 2 Bb bo & = p+ + B oo 


1540 


Pll 


C=11-DZRKH-F 
22-SEP-76 08:S 


220 
8S 


28 
WS 


a 


i 
ste 


MACY11 


27( 1006) 


172764 


172746 
1727Se 


172716 
001470 


104 


1 eet ean E Etec SHA? 6001 WORD WRITE WAS DONE CORRCTLY 


Bey Sue TRRDAY MERE DAT Te 18 TEBE Done AbUEonTATNe tre hake CcaNt 


"DBUF’ CONTAINS THE DATA TO BE WRITTEN. NOTE IBA BIT IS SET. 


DOWRITE: 


DOXFER: 


1$: 


MOV 


MOV 
MOV 


UCAS RENE 
ein LOE 


#4002 ORKCS 
, IRKDA 


:  ORKWC - 
IRKWC 


#O8UF , IRKBA 
3s ORKVEC 
#1$,-(SP) 
#101 JRKCS 
#-20, CICNT! 
CICNT 

74 

CICNT! 

EE 

PC, GTHRG 
PC 


(SP)+, (SP)+ 
#2, (SP) 
PC 


IF Ce A NTERSUET BORD Ne NOT we the WITHIN 
TO_T HE * JSR’ 
, RETURN ADDRESS IS ADJUSTED” 1. SKIE OVER 


Apress 1 THe DRIVE 
OF WORDS 


;USE THIS BUS ADDRESS 
:SET UP INTERRUPT VECTOR 


NEW PSW 
:SET NEW PC TO STACK seeeeeeeee 
;SET IDE, GO (WRITE,IBA’ READ) 


;WAIT FOR INTERRUPT 


T, INTERRUPT DID NOT OCCUR 
0 THE EROR MEASGE 


ORE ae tosn POIN 
SA RET 


- SEG 0047 


JO4 
MAINDEC<11-DZRKH-F Lage 27(1006) O4-OCT-76 13:29 PAGE 3S . 
| OZRKHF.P11 22-SEP-76 08:57 T4 READ & CHECK THAT 6001 WORD WRITE WAS DONE CORRCTLY SEG 0046 


R gS TARE CEPR RED EPH PE DURE 


CONE INTO DR TA BUFFER A 


1544 
145 ss a ie INTERRUPT MODE. IF THE INTERRUPT DOES NOT OCCUR WITHIN 
1546 ‘a CPR AIN T RETURN Is MADE TO THE ERROR MESSAGE FOLLOWING THE ‘JSR’ 
1547 CALL IF THe TATERRUP CURS AS EXPECTED, RETURN AODRESS IS ADJUSTED 
ies :T0 SKIP 0 HE ERROR SEStoee 
| 1 006250 012777 O00004 172644 DOREAD: MOV #4, IRKCS ;READ 
| 1551 006358 00077 5R DOXFER 
1552 
ess 
fir F Sem Our ne THE pata BUFFER (ALL WORDS WRITTEN TO 177777) INTO WHICH THE 
cok THE DISK WILL BE DONE. DATA BUFFER STARTS AT 'DBUF’AND IS 
| 1557 1000 (OCTAL) WORDS LONG. 
1328 906360 012702 177000 CLEANBUF:MOV —«-#- 1000, Re +SET COUNT 
| 1560 4 912705 O32412 MoV #DBUF RS : INITIALIZE BA 
| 1561 bbb 376 012725 Oeez22 1S: MOY #22222, (RS)+ 
c o0s202 INC Re DONE ALL WORDS? 
l 'BUFFER STARTING AT.(PHYSICAL) BUS 
 ‘{5e4 ADDRESS 1 (177000-200776) 
1565 906376 001274 BNE 1s 
| 566 806400 RTS PC YES RETURN 


rt te ft at SN SS 


MACYL1 27(1006) 
:57 


MAINOEC<11-DZRKH-F 
DZRKHF P11 22-SEP-76 08:5 
1567 

1 

i 

1 

1 

ae 

1 

1, 

HS Beats ee a7 
1385 414 Boos 764 
: asp iss 1600 
ie ies Glee Gee 
1586 

ee 

1589 

fe) 

1 

1593 

1594 442 012737 006 
HS wg ery comso 
12s OO&4Se 104420 

a 006454 012700 000001 
1 460 012701 1 
ee ae 
1 4 

1s ENTS Gate? onto 
ie eeare Olet7? one 
tee 006512 Btg5a5 177000 
1608 O06 012777 000003 
1603 OO&S26 104417 

tet 006530 004737 Od20020 
Pie 006534 104102 

3 

3616 OO0653&6 904737 O20l11le2 
1617 

1918 

161 

1620 

O0ES4¥2 104106 


RE 


»91110 


172524 
172512 
172506 
172474 


KO4 


eat =: 13:29 PAGE 36 


CHECK DATA TRANSFER AROUND 32K BOUNDARY 


See eee ea eK DATH TRUGHER CRAID aX BORORRY 


t ETEST = 


CK_DATA TRANSFER 
;*#THIS TEST PERFORMES A WRITE OF 2 SECTORS ON THE DISK FROM MEMORY 


Re nto pHiSTCAL Gus GOORESSES Toe Tit bata BUFFER: 
I.E. (32K-256) TO (32k+255 


OMECKING 1s Done ole aoEe ae NEX BITS, RKBA,RKDA,RKWC INCREMENTED 
CLEARED OUT AND'A READ IS DONE 


inte it Tata ORK 1S ‘Fede 10 Scr IF THE CORRECT DATA WAS RECIEVED. 


_ peonaadencncnsacenenssceansnenscasessenscesnnnsssanessnensnnsss 


+ét5; 


1S: 


seer te 


SLSTBK, , #2000 3% OR MORE OF MEMORY? 

TST IF NOT, DONT DO THIS TEST 

MOV #1600,28KIPARS :MAP 28-32K THRU PAR S 

MOV #2000, 08K IPARE MAP Se—a6k THRU PAR 6 

MOV 1, a#SRO0 TURN ON MEMORY MANAGEMENT 

DATA BUFFER (1000 OCTAL woRos_ Long FOR WRITING TWO SECTORS 
DONE AROUND THE 32K BOUNDARY FROM 


200776, (32K-256) TO (32+2S6) 


ON THE DISK. THE TRANSFER IS 
;BUS ADDRESS (PHYSICAL) 177000 TO 


;DATA pe nt BUFFER 5 8. A oat PATTERN STARTING FROM 1 FOR THE FIRST 


FOR T 


‘PAYS ICAL, BUFF ER ADORE: 177000, T Toes BN pak eere 8, 32K+256) 


2s: CON. RESET 
DRV. RESET 
MOV #1,RO s INITIOLIZE DATA PATTERN TO BE 
MOV #137000,R1 ‘BA TO START $=177000 
3S: MOV Rd, (R1)4 ioe rie. COUN SUNT PAT ER (1-1 
INC INTO DATA BUFFER ( 
chp Rb, #1001 177000 TO 200776 
MOY QDRV, IRKDA ;SUR 0, SEC 0, CYL.O 
MOV #-1000, dRKWC :WORD COUNT =2 SECS 
MOV #177000, 3RKBA  ;BUS ADDRESS. 
#3, IRKCS WRITE, GO 
CON. RDY : WAIT FoR CNTROL RDY 
JSR PC, CHKCS sANY EROR IN RK 
ERROR 102 :’ERR’ SET IN 35 ON DOING 
WRITE OF SECTORS [oO 1) FROM 
: (PHYSICAL) ORESSS 177000 
(177000 TO er: 


JSR PC, CHKMEX 
;CHECK THAT RKBA aa he INTO 
; EXTENDED ro se? (0) OF RKCS (BIT 4) 


EX MEM BIT 
:GET RKCS 

ERROR 106 : MEX Brye ASRAECT, BIT 4 OF RKCS 
:(MEX BIT 0) SHOULD’ HAVE SET 


0049 


af LOY 
NRINOEC-L1-D2RKH-F | MACYII 2711006) ONMOCT-76_ 13:28 
OZRKHE.P 8 


PAGE 37 : 
22-SEP-7& 08:57 HECK DATA TRANSFER AROUND 32K BOUNDARY Seq 00s0 


note 


nea ee ds ah 


ed eel ee eed eed oe ee ee ee ee oe oe 2 oo ot md 


rodwd 
Fages 


nr 
i 


16 


16 


001110 


tt 
“NN 


san 
Rae 


e 


0 


MOV #1000,83 
Vv 7 R4 

ISR PC, 

ERROR 1 

MOV QORV, Re 

ADD 82, Re 

ISR PC’ CHKDA 

ERROR 103 

ISR PC, CHKWC 

ERROR 106 


thie »R1 


oy #-1000, IRKWC 
MOV #197000 

MOV , aRKCS 
CON. RDY 

JSR PC. CHKCS 
ERROR 102 


AFTER RKBA er ON DOING 


Chess LRT of Toco 


Tf RkSa INCREMENTED CORRECTLY 
ee CAPPER PE er 


STARTING AT (PHYSIC 
(177000-200776 ) 


KDA INCRE NCREMENTED af SRRECTLY 
RKDA INCREMENTED WR ONGLY AFTER 
7A WRO CTOR (0,1) FROM 
‘DATA BUFFER STARTING AT BUS 
“ADDRESS (PHYSICAL) 177000. 
OVERFLOWED CORRECTLY 
NO 


; IF 
i ROING “ee ROT OVERELOH 19.0 0 FROM 


:BA = 
HTeat is S uRiTTEN 10. See te iP It 
He Be READ CORRECTL 


;LUP TO 4§ ON EROR (SW 9) 


;CLEAR THE 1000-WORD DATA 
;BUFFER (PA 177000 TO 200776) 
ALL DONE? 


READ BACK INTO THE 
BUFFER 2 SECTORS 
Fe TEN PREVIOUSLY 
5 ROORESS ie ~~ CyL 0, SEC 0, 0 


HINT TO Tuis BUS BUS *RODRESS 
watt FOR CNTROL RDY 

RKCS? 
T_IN RKCS_ ON DOING 
CYL OQ, 
ae es 
TER 


sANY ERROR IN 
sERRON BIT 
3A READ OF 


iB RODRESS 177 NOTE AF 
BA WILL OVERFLOW (0) 
Hino MEX BITS (ert 4) OF RKCS. 


WORD ) 
‘IRS TOGNE  RKGA RKBA WILL CONTAIN I 1000 


C-11-DZRKH-F 
22-SEP-76 08:5 


-Pll 


1697 


Be b= bs b+ b= 8 + bP -  - 


SEIS SERE Se 
& 


ot 
: 
& 


Ee 


012701 
020112 


He Bhs 
14 

00S20S 
010137 
011237 
104107 


isn 


Boson 


061254 


005037 


AC TAI 27( 1006) oo ® 


&$: 


9s: 


MO4 


CHECK Bata FRNSFER AROUND 32K BOUNDARY 


MOV 


8-14, R5 
#137000,Re2 


61,R1 
Rl, (Re) 


sAND BIT 4 OF RKCS (MEX) WILL SE SET. 


i TARTING AOORESS OF BUFFER 


Hey DATA PATTERN 
;CORRECT DATA WORD RECVD? 
;REPORT THIS ERROR? 
;COUNT ERORS 
;GET EXPCTED DATA WORD 
;GET DATA WORD RECVD 
ser fa COMPAR 20M 


ERROR On DOING A 
OF 2 SECTORS ( YL 0, SURFACE 0) 
INTO DATA BUFFER cpuvetcan ADDRESS 
177000 TO 200776) 


;TYPE ’PHYSICAL BUS ADDRESS’ 

sTYPE THE & DIGIT PHYSICAL BUS ADDRESS 
;WHERE THE DATA ERROR OCCURRED. 

; INCREMENT POINTER TO BA 


;CHECKED THE ENTIRE BUFFER? 


; #OFF 
; TURN OFF MEMORY MANAGEMENT 


“SES 00S: 





NO4 


MAINDEC- 11-DZ2RKH-F MACYLL 27(1006) O4-OCT-76 13:29 PAGE 39 
DZRKHF.P11 22-SEP-76 08:57 TE CHECK DATA TRANSFER FROM 28K TO 32k 
171 1 HTEST 6. -CHECK DATA TRANSFER FROM PEK TD '3K 0 
i 
ie are 1ENEORETE TEBE PILES PRGA mrren caren at 2m 
1714 N THE DATA 15 READ BACK INTO THE SAME BIUFFER(28K-32K) AND IS 
i715 tS CHECKED TO SEE IF IT IS CORRECT. NCTE THAT THE BUFFER IS FILLED 
1716 :#WITH ALL 1°5 BEFORE DOING THE READ 
15 g -#THE WRITE IS DONE STARTING AT CYLINDER 0, SECTOR 0, SURFACE 0. 
1718 « EEE EKER EEE EKER EE EEE EER EEE EE EE EEEEE EEE ER ESSE EE EE EE SEES EEE ES 
i ‘ 006764 +éT6: SCOPE 
1788 006766 02 017700 001740 CHP SLSTBK, #1740 ;32K OR NORE OF MEMORY? 
78s 1 IMP S17 iT NOT, DONT DO THIS TEST 
} 00 12737 ete 172352 1S: MOV #1600, 98KIPARS MAP 28-3eK THRU PAR S 
1766 007016 012737 000001 177572 MOV #1, a85R0 TURN ON MEM MANAGEMENT 
ro ;WRITE A COUNT PATTERN NTO DATA BUFFER (PHYSICAL ADDRESS 
res t] -177776). THIS bat OOOPrER WILL BE USED FOR iRits Ne ON THE DISK. 
1 16 012737 007024 001110 MOV 82$, SLPERR ;LUP TO 2$ ON EROR 
i 10441 2s: CON. RESET 
5 330 03780 00000 a RO NITIALI TA_PAT TO BE WRITTEN 
t53¢ Bossy Bisse? 9 MOY _#120000,R1 HIN Ha CE BA ope 1EnO00) Zak 
1736 007040 010021 3S: MOV RO, (R1)+ 1 PATTERNS RNS (1- 10800) 
1 2 905200 INC RO IN DATA BUFFE ER (PA 160000 TO 
17 010001 CMP RO, #10001 pc -32K) 
1739 001373 BNE 
1741 013777 001502 172150 MOV QDRV, IRKDA sWRITE ON SEC 0, CYL 0, SURI 
| 17e SOEs 012777 170000 172136 MOV 8-10000,aRKWC 34K 
1743 007066 012777 160000 172132 MOV #160000’ SRKBA  :FROM THIS BUS ADDRESS 
| dea Gorar4 Olerz7 172120 MOV =. #3, JRKCS ;WRITE, GO 
176 007102 104417 CON. RDY ;WAIT FOR CONTROL READY 
1748 007104 004737 oceDDe0 ISR PC, CHKCS ANY ERROR IN RKCS? 
1749 007110 i0410e ERROR 102 PER? BIT SET IN RKCS ON DOING 
1750 A WRITE OF 4K WORDS FROM 160000 
1751 :(28K-32K). DISK WRITE BEGAN ON 
1752 SEC 0, CY SUR 0. IF ALL 4K 
1753 : WORDS’ WE ITTEN RKBA SHOULD OVERFLOW 
1754 AND CONTAIN 0. BIT 4 OF RKCS 
1755 (MEX BIT) SHOULD BE 1 
| 1757 007112 004737 oO20112 JSR PC, CHKMEX ;CHECK IF RKBA OVERFLOWED AND MEX 
i758 BITS (4) IN RKCS WAS SET. 
| 1759 007116 104106 ERROR 106 ::MEX BIT 4 NOT SET AFTER OVERLF OW OF 
1760 ‘ t RKBA. WRITE OF 4K WORDS (28K-32K} WAS DONE. 
| 1762 ;RETURN HERE IF NO ERROR 
| 1763 007120 012703 010000 MOV #10000, R3 : WORD COUN 
1764 007124 012704 160000 MOV #160000, R4 ; STARTING Bu S ADDRESS 
| 1765 007130 004737 Oe00se JSR PC, CHKBA CHECK IF RKBA INCREMENTED CORRECTLY 
1766 007134 104104 ERROR 104 : RKBA DID NOT OVERFLOW T0 AFTER A WRITE IF 4K 








a | ; 


1 


0 +0 ++ 0-0 +0 + 2h +o +0 +8 «p< O-+ b- &-< &-0 h-< & + & Bh +O + oo , 
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MACY33 27(1006) om 13:29 PAGE 40 
08:§7 CHECK DATA TRANSFER FROM 26K TO 32k 


;WORD'S (160000 70 177776) 
Vere LOUD CORRECTLY 


ane TD NOY VE 1 oie Loe hoc 1g0000 


OC7iS2e 001110 MOV 84$, SLPERR ;RETURN ADDRESS FOR LUPING 
4$§; po Reet 
ORV.RESET 


020336 


120000 MOV #120000,R1 ;CLEAR THE DATA BUFFER BEFORE 
ss: cL (Rl)¢ *DOING A READ INTO 17 
140000 CMP 8140000, R1 
NE 
001508 172030 MOV QORV ;READ FROM SEC 0, SUR 0, CYL O 
1 17 ig MOV 8-10000,dRKWC 34K WORDS 
160000 17201 MOV $125009" SAKES tINTO THIS BUS ADDRESS 
900005 172000 MOV 8S, IRKCS ; ; 60 
CON. ROY nait FOR CNTROL RDY 
o20020 ISR PC, CHKCS sANY ERROR IN RKCS? 
ERROR 162 : BIT SET IN KGS | oN ABOING 
3A OF 4K 4K_WORDS INT 
177764 MOV 8-14.85 : (16000 12 ERRORS AT MOST 
120000 MOV #120000,R2 § - :STARTING ADDRESS OF BUFFER 
000001 MOY —s_- BL RI : (hae 1 B00) DATA PATTERN 
$$: cup BL. (Re) ;CORRECT DATA WORD? 
001162 MOV R1, SREGO GET EXPCTD DATA WORD 
SOLES Noy (RE) , SREGL :GET DATA WORD RECYD 
ERROR 10 sDATA 7 ING A READ OF 
34K ARTING FROM SEC 2 
| ‘i "SINS MEMORY (1S800C~- 
4 TYPMSG MSGI 
R055 43 ISR eB ao ee ou PPA Le Bus S ADDRESS 
NC + EEO 0 CONTAINS 
: 2 TE ine 
ooooge 7$: ADD ‘#2,Re : POINTER 19 NEXT BA 
INC R :NEXT PATTERN 
001000 emp #1000,R1 :ALL DONE? 
BNE 6$ ; 


177572 8S: CLR asSRO ; TURN OFF MEM MANAGEMENT 





MAINDEC <1 -D2RK kag 2) 2701006) 04-OCT-76 13:29 PAGE 4 
o Pll 3 oSee- 76 08:5 v7 PERFORM THE raRGe St POSSIBLE ata TRANSFER SEo 00S4 


8 SessseederenessnsesrensesesesesessneresEseessesererressreeereer 


;STEST 7 Ms, cr pearome Tee LARGEST on fi RENSFER POSSIBLE 


) IF KT1i_IS PRESENT A WRITE OF 16K WORDS IS DONE ON 
: THE DISK (PROVIDED 28K OR MORE IS PRESENT). 


) IF KT11 IS NOT PRESENT THEN ALL BUT TOP 1.SK OF MEMORY WILL SE USED 
tFOR WRITING (RKDP MONITOR). 


BETSY ERE RES BF SR 


' 
ig ? 


; AFTER DOING 1s "WRITE’ A *WRITE CHECK’ IS DONE 
:19 = IF THE WRITE WAS DONE CORRECTLY. ANY WRITE 
ERROR IS REPORTED. 
,jprevebacnasenscnsesionsesonssisonsonssnesastonssntsssenseasess 


URED Seah TOs CASE Ee TOR PONS 


l 
i 

} 

l 

1 

l 

1 

} 

j 

l 

} 

1 

1 + 

i Besse spose 017432 g $KT11 ;MEMORY MANAGEMENT PRESENT? 
: 007326 100004 BPL 1S 30. 

i 007330 023727 017700 001540 ¢ SLSTBK, #1540 26K OR MORE? 

1 007336 o02034 BGE :YES 

1 007340 013703 oo20S4 18: MOV MAXBA, R3 sFIGURE OUT THE MAXIMUM 

l pore 162703 O3e4le SUB 8PGEND, R3 :XFER THAT CAN BE DONE 

l 000241 cL¢ 

; 007352 o06003 ROR R3 ;FROM "PGEND’ TO THE 

l 907354 005001 CLR Rl . 

i 007356 O10246 MOV R3,-(SP) :PUT DIVIDEND ON STACK (LO) 
1 007360 CLR -( Sp) : (HIGH PART) 

1 007362 Ol2746 00400 MOV #400, -(SP) :DIVISOR 

j 007266 737 025120 ISR PC, aaSDIV :G0 TO DIVIDE ROUTINE 

i 007372 0057 ¢ qs (SP)+ :POP OFF REMAINDER FROM STACK 
1 Behe ate INC Rl GET # OF SECTORS REQUIRED TO 
1e59 :DO WRITE OF ® OF WORDS 
1860 007400 O62601 2s ADD (SP)4,R1 : (CONTAINED IN RO). Rl CONTAINS 
1861 :# OF SECTORS 

1862 007402 oosoDe CLR ?FORM THE EXPECTED DISK 
1863 j 000014 3 ue #14,R1 [ADDRESS - AFTER THE WRITE 
i ip 1 I IS DONE. 

1865 OO74l2 Ob2702 00020 ADD #20,R2 

i866 007416 000772 BR 

1867 007420 062701 000014 4§ ADD #14, Ri :R2 CONTAINS EXPCTD RKDA 
1868 607424 950102 BIS R1, Re :AFTER WRITE IS D 

1863 007426 900404 BR XFR 

1871 007430 012703 o40000 XFRIGK: MOV #40000, R3 ;# OF WORDS = 16K 

1 34 b15353 009124 MOV #124, Re ;RKDR SHOULD INCREMENT TO 


;THIS AFTER A TRANSFER OF 16K 
;WORDS STARTING AT DISK 
ADDRESS = O (CYL 2,SUR 1,SEC 4) 


eto 
ac 
NN 
ud 





sf 


SERRE SEIT OR CERT REE Ba tel Ae 





ee ed oe ed 


OwowOOWwOWwWWwWoO 
= 0 OO he 
L000 NOUN ime 


EUROS 


-DeDDDD D DD D D of of A cA ch cL of) cf ef Leh fd of de oD oA kd kek dd EP ED CD CH CHEN CHD CH CREM ED MDD Cade eDewen 
BS 


oe 


DOS 


27( 1006) 1ot-OcT-78 13:29 PAGE 42 7 
PERFORM THE LARGEST POSSIBLE DATA TRANSFER SEQ OSs 
XFR: BIS QORV, Re 
lg Ruan FETE. XFER 
002110 MOV 818, SLPERR ERROR 
1S: ON. RESET i 
oe RESET 
I71S44 MOV QORV, JRKDA ; ADDRESS THE DRIVE, CYL 0,SUR 0, 
3SEC 
MOV R3, IRKWC 
aie soe ty S AVAIL AB A TRANSFER 
56 20 Le E bok, IF 
:LARGES My WITHIN THE 
tate Gear Panchen nth 
:BE DONE. IN BOTH 
CASES, DATA TRANSFER 
SWELL ee BS STARTING 
171524 MOV SPGEND,dRKBA =; START SAT TE FROM HERE 
1715i2 MOV 83, aRKtS :WRITE, GO 
CON. RDY ;WAIT FOR CONTROL READY 
ISR PC, CHKCS ;CHCK RKCS FOR ERROR? 
ERROR 102 ;ERROR BIT SET IN RKCS ON 
‘DOING A LARGE *WRITE’ 
ISR PC, CHKDA ;CHECK IF KOA INCREMENTED CORRECTLY? 
ERROR 103 :RKDA BID NOT INCREMENT 
CORRECT 
MOV 8PGEND, R4 
ISR PC, CHKBA ;CHECK THAT RKBA INCREMENTED 
: CORRECTLY? 
ERROR 104 ne KBA DID NOT INCREMENT 
JSR PC, CHKWC se THAT RKWC OVERFLOWED 
ERROR 106 RKWC DID NOT OVERFLOW TO 
:ZERO AFTER A WRITE 
001110 MoV #2, SLPERR ;LUP BAK TO '2$’ ON EROR (SW 9) 
2s: CON. RESET 
ORV.RESET 
171442 38 MOV QDRV, IRKDA ;ADDRESS THE ORIVE, CYL 0,SEC 0,SUR 9 
= oo 
171422 MOV 8PGEND,ORKBA = ; STARTING BA 
171410 4S: MOV 8407, JRKCS ;WRITE CHECK, SSE, GO 
CON. RDY ;WAIT FOR CONTROL RDY 


JSR PC, CHKCS ;ANY ERROR IN RKCS 

















| 

| MAINOEC-11-D2RKH-F MACYII 27(1008) sot? 

| DZRKHF.P1] | 22-SEP-7@ 08:57 1P° PRee ban fue TaRGEST POSSIBLE DATA TRANSFER 

1338 104102 ERROR 102 

| HE 040000 171372 gry agIT14, ORKCS sSKIP CHECKING FOR WCE IF HE SET 

ay% 000001 171360 S$: SIT BCE , IRKER sWRITE CHECK ERROR? 

1337 001406 BEQ &$ :NO 
IES GES POPE IES couse «= AR SRT Mleae TOS. 
isi io4110 ERROR ;WRITE CHECK ERROR. PKDR alyes THE DISK ADDRESS 
eqs te Wee oe SEINE BY FING OFF C oFF | “SECTOR 

sE Bu 

ié45 NO fore “ig, Ne, va WHICH WAS WRITE 
1S45 !CHECKED IS ier ON A SECTOR BOUNDARY 
1s iC Ke ose: Siz WORD ETC.), BUT IS SOME 
1987 ' :SECTORS &'A FRACTION (LIKE 300 WORDS ETC.) 

| teas g07656 005777 171342 b$: TST IRKWC sWAS THE ENTIRE DATA BUFFER 

| 1350 001413 BEQ 7§ :WRITE CHECKED? 
1 4 O1 171234 MOV DRKWC, RS 

is3 Doves Basone | 1545ec BIC #177760,R5 ;FORM THE RKBA &ND RKWC 

| 63854 007674 O06305 ASL 

| 1955 00767 160577 171324 SUB RS, IRKBA :T0 BE USED FOR DOING 

1gé SWRITE-CHECK IF THE REST 

1357 007702 042777 000017 171314 BIC #17, IRKWC OF THE DATA BUFFER 

' $869 007710 900735 BR 4g :G0 DO WRT-CHK FOR 

| 1z0 °REST OF THE SUFFER 

| 1962 :GO CHECK THE REST OF THE DRIVES. 

| 

| 4964 po7712 900137 oDs312 7S: IMP NXTDRY 





MAINDEC-11-DZRKH-F MACYL1 27(1006) O4-O0CT-76 13:29 PAGE 44 
DZRKHF P11 22-SEP-76 08:S7 EXERCISER PROGRAM SEQ 0057 


.SETTL EXERCISER PROGRAM 
s BEGINING OF THE EXERCISER PART OF THE PROGRAM. 
s1F THE PROGRAM WAS 


RESTARTED AT 210, THEN THE STATISTICS COLLECTED 
;S0 FAR WILL NOT BE CLEARED. 


XRCSR: CON. ET 
a aay RESET EY.RO , ;CLEAR UP THE LOCATIONS FROM 
1$: CLR ~(RO)+ ;’KEY’ TO *KWHR’ (EXCLUDED) 


NE 
Se. 
s 
dS 


& 
wn 
it 


HE 
1965 
ise 
1968 
1968 
1$70 
u 
igos BOS538 
137s 007724 
taoe Basses 
tere Goro. Abioes Ces? x = ER a ae oe evATISTICS COLLECTED 
| is ‘EPIL Mh SORT oleAA fues 
: RO)+ :CLE ar FROM *HECN’ 
18) GEE GER? cone Emo «ROP ARARGTIELEED, 
| 1383 001374 2g 
199s l Sy MOV #KWMIN, RO s INITIALIZE COUNTS FOR MINS, 
| 1986 pore Bigzee a5 34 MOV 8-60. ,R1 :SECS, KW1I 
eee mY Alsi 
y + 
1988 907766 518130 MOV sw RIS CRO) + 
«TBE porz7m piaron oasexe mov BRSORVL AQ, INITIALIZE PTR TO RANDOM NO. SEEDS. 
: 1335 10000 012720 iSzens MOV #176543, (RO)+ i uPED BY ANBON NUMBER CCEEDS “To BE 
1994 010004 012720 601201 MOV #1201, (RO)+ 
1995 019010 012720 MOV 465, (RO)+ 
| 1996 010014 012720 176105 MOV #176105, (RO)+ 
133 shee biS955 157650 NOY tieseen’ (ROD 
| 998 shen 012720 MOV #30753, (RO)+ 
' p000 010034 012720 131547 MOV #131547, (RO)+ 
| 2001 910040 d1e7e0 MOV & RO)+ 
| ile Bibbs Bleres 1e3ue MOV =: 8123456, (RO) + 
| 100So 012720 176543 MOV #176543; (RO)+ 
j 
eobe 
| B006 O100S4 013737 001236 O020S6 23s: MOV PCNTR,REPCNT | ;REPETITION COUNT. WHEN THIS COUNT GOES 
| 2007 :T0 0, IT’S CONSIDERED TO BE AN END OF PASS. 
| 2008 THE NEXT PASS WILL START WILL START RIGHT 
son ;FROM WHERE THE EXERCISER LEFT OFF. 
 pOLL oO10062 004737 oD22SE4 ISR PC, CHDPRS ;CHECK IF ANY DRIVES ARE PRESENT 
| ble :IF NONE, GO TO $EOP, END OF PASS 
. e014 
e015 
sats C1006 O12746 177777 MOV #177777,-(SP) | ;PUT LOW DIVIDEND ON STACK 
| e018 010072 oOSo4E CLR -(SP) ; CLEAR HIGH DIVIDEND AND PUSH 
2020 010074 013746 o01264 MOV DRVPRS,-(SP) © ;PUSH DIVISOR ON STACK 


| 


oO 9000 
- = ee 
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8 SS 


e 
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es 
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ee ee trae ge pn 
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025120 


001530 


04-OCT-76 13:29 PAGE 4S 
GRAM 


Ur 1s 


StARD THE REARING 


FACTOR SECTO 
it NAPPING FACTOR FOR FUNCTION 


;COMPUTE THE MAXIMUM ALLOWABLE 
;WORD COUNT FOR DATA TRANSFERS 


;CONVERT TO WORDS 


;PUT LOW DIVIDEND ON STACK 
iG ERe ota DIVIDEND AND PUSH 


ERRINOER. “UOT TENT qs 





SAVE THE MAPPING FACTOR FOR BUS ADDRESS 





HOS 
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D2 Pil 22-SEP-76 08:S7 EXERCISER PRO SEG 0059 


2043 ; THE ENT IRE DISK (ALL DRIVES) IS WRITTEN WITH PANOGM PATTERNS. THE FIRST . 
sole ie OF Re. REST oF THE Dav WORDS POR SLE SECTOR GRE GENERATED USING 
en BE iB adda Dee Pestana 
iT UEN'BO NOT REURITE THE DISK WT aig ot “ie gu 4 1s NOT SET THEN 
zs NEO ee Ree e ENTS BRE WATTTEN WITH RANDON PATTERNS 
2051 010174 105737 001253 WROSK: TSTB  FRSTRT sRESTARTED AT 210? 
2052 010200 001407 BEQ 1$ :NO 
2053 010202 105037 001253 CLRB =-« FRSTRT ;YES, CLEAR THE RESTART FLAG 
4 Ol 777 O00020 170724 BIT SHH, ASUR ; Sid W 4 SET? 
10214 601401 Q l 
oust 10216 40 BEGEX1 ives DONT NT REWRITE ALL DISKS WITH 
| 2058 910220 012737 910236 001110 1S: NOV #2, SLPERR ib StnTeR "Oh e's faece 
soF3 pipes pieces Bp tse MOV DRVPRS, R3 # OF DRIVES PRESENT 
208 010236 012700 011410 2s: MOV #4872. /RO i NUMBER OF SECTORS PER DISK 
50E2 10242 112201 MOVB Re)+. RI GET THE FIRST AVAILABLE DRIVE 
2063 010244 042701 177770 BIC $177770,R1 ‘POSITION THE BITS (15,14, 13) 
Spee Bipsey panes, COtSde eee 
| 2066 se 006001 ROR R1 
| 2067 O19260 006001 ROR Ri 
| cee Gites bee a 
| Soe Bt atta 170736 MOV Rl,a..DA ;BASE DISK ADDRESS 
| 2072 910272 013704 gg20s4 Hoy NAXBA RH ;CALCULATE MAXIMUM BUFFER 
core piosrs Apeo54 ASR By : ;CONVERT TO WORDS 
| 2075 010304 042704 000377 BIC 4377, R4 KEEP ONLY WHOLE BLOCKS 
Bibsie Geose? oooo1y au”, ae. om OF 12 SECTORS 
_  p078 O10316 oO340e2 BLE $ 
2078 010320 012704 ooo014 MOV #12. ,R4 
| gos! 010324 010401 3S: MOV RY, RI 
0103e6 020400 CMP R4'RO 
| 2083 010330 003401 BLE 4g 
| 2084 010332 910001 MOV RO,R1 
| 2085 b10334 900301 4S: Rl 
spes bi Baap rife 010354 MOV R1,S$ 
' poge 010244 010177 170654 R1; ORKWC 
| 2089 010350 004537 O1b6l2 ISR RS, GENBUF GENERATE RANDOM DATA BUFER 
/ 2080 010354 900000 cs: “WORD OQ 
| 081 010356 O3e41e “WORD  DBUF :STARTING ADDRESS OF DATA BUFER 
| 5 535 010360 012777 O32412 170640 MOV #DBUF , IRKBA ;FROM THIS BUS ADDRESS 
9094 010366 012777 000003 170626 MOV #3, ORKCS WRITE, GO 
| £035 
209 010374 104417 CON. RDY sWAIT FOR CONTROL RDY 
| 2097 010376 004737 oeDDeD ISR PC, CHKCS : ANY 
209 O10402 104001 ERROR 1 :AN ERROR OCCURED WHILE DOING WRITE 


me i re ee ee. 
















OS 


BGae.Pit  ae-sep-re Gece?) eae iseR prddaan “AO *” £9 0060 


;ON THE DISK. YOU ARE ADVISED TO USE 


1% 


si :BASIC AND DYNAMIC TESTS. 

102 o10404 032777 OD0400 170526 BIT #8178, ISWR ;TYPE CURRENT STATUS 

2103 010412 001435 SE 6$ 

2104 910414 000377 BIT ‘i »RO 

gids l 23 I BNE 6 

l biduce 1044 gi 010430 TPE 33 TYPE ASCIZ STRING 

5ife -:65$: Recrz eee Be sy Bat teen: Berve / 

2108 010472 4s: 

2110 O10472 013746 o01502 MOV QORV, -(SP) 

111 O10476 104403 TYPOS 

ll ibco8 061 .BYTE 1 

gis 10501 000 "BYTE 0 

21iS o10So2 104401 001213 TYPE  ,SCRLF 

2116 010506 a 6S: CKSUR ;CHECK FOR SOFTWARE SWR CHANGE 
2117 919519 160400 SUB RY, RO ‘DECREMENT SECTOR COUNT 

£113 010512 603304 BGT 33° 

120 010514 005 DEC R3 ;MORE DRIVES TO DO? 

ei2l 010516 001247 BNE 2$ 

gle :IF SW 3 IS SET, ENABLE THE LINE CLOCK AND INITIALIZE COUNTS. 
2125 010520 032777 OO0010 170412 BEGEXI: BIT #SW3, ISWR ;KWI1L CLOCK PRESENT 

ize 019526 901403 BEQ BEGNEX IF NOT, SKIP. NOTE: IF KWLIL IS 
1 :NOT PRESENT SW3 SHOULD NOT BE 
2128 !OTHERWISE, A TIMEOUT WILL OCCUR. 
gig? 010530 052777 OOD100 170476 BIS #BIT6, JKWLS *ENABLE KWI1L CLOCK 

l :SERVICED AT PRIORITY 7 (KWSRVE) 





rururururororororurururururufrorufurorururforururururururururururururururufururururururururururururururururururufro 
RR ONS ISIRKAZINA- SSS GEHL SBOE RLS SH GFK ESHASSBEGRRESRE 


Seeeees See fees eee 
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EXERCISER PROGRAM SEG 0061 


;THE PROGRAM IS GOING TO LOOP BACK TO THIS POINT AT THE END OF A PASS. 
BEGNEX: — RESET aay EVERYTHING IN DRIVES 

T t Drives” LEFT IN SYSTEM? 
FER 00 GENERATE 8 COMMANDS FOR THE @ 


;CHECK IF THERE IS ANY UNFINISHED COMMAND IN THE @, WAITING TO BE EXECUTED. 
tIF THERE sm NONE, GO TO THE ’GENSRQ’ AND GENERATE 8 REQUESTS (COMMANDS), 

7 AND PUT THEM IN THE Q. IF THERE IS AN UNFINISHED i ah FIND OUT IF 

; THERE IS A PRIORITY COMMAND TO BE EXECUTED IMMEDIATELY. 


ae MOV PPRLVL (SP) ; NEW PSW , RAISE PRIORITY 
nov $,-($P) RETURN PC seexeens Xeekene 
1S: TST DRVPRS ;ANY DRIVES IN SYSTEM? 
6S$ ; 3 TYPE ASCIZ STRING 
BR 33 GET OVER THE ASCIZ 
i455: “ASCIZ <15><12>/HALTING’- PRESS CONTINUE TO RESTART AT °200°7«15><12><12><12> 
"HALT 
IMP START 
2s: MOV #KEY, RO 
3$: TST (RO)4 sANY UNFINISHED COMMAND 
BPL 4 IN Q. 
cHP RO, aKEY+20 
ISR PC, GENBRO sIF NOT, GO GENERATE 8 MORE COMMANDS 
BR CHEAFN 
df: MOV ety RO 
ss: git #8 Tle, (RO) ;ANY HIGH PRIORITY COMMAND IN G 
TST (RO) ; FINISHED? 
BMI x3 
rSTB Ess (RO) IN EXECUTION? 
BPL PRICMND ?NO, GO PROCESS HIGH PRIORITY 
6S: TST (RO)+ ;CHECK THE ENTIRE 9 
CMP RO, #KEY+20 


eR OUT IF THERE IS A WRITE CHECK FUNCTION TO BE DONE IMMEDIATELY AFTER 
A WRITE, THAT WAS DONE PREVIOUSLY. 


TST -WCFLG sIS 
BPL = CHFAFN MR 


ITE CHECK TO FOLLOW 
seit ’ NOT, BRANCH 


WR 
E? IF 


KOS © 
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DZRKHF.P11 | 22-SEP-76 08:57 EXERCISER PRO t oe SES 0062 
2187 O10762 013700 o014S6 MOV WCELG, RO GET WC FLAG 
g188 010766 O42700 177400 BIC 77400, RO LOWER eyT ONTAINS KEY KEY ax (OFFSET FROM 
2190 01 016001 goe03 MOV PCMND(RO),R1 sGET POINTER 
gd 01 062700 901306 aD 8KEY, RO : FROM SS OF THE KEY 
1 ; WHICH WAS USED FOR PREVI 
5185 911008 gee7b1 poco ococooe CMP #2,2(R1) Oreck THAT THE FUNCTION 
195 91101 141 BEQ 7§ :WAS A WRITE 
219% 011012 011037 901162 MOV (RO), SREGO GET KEY CONTENTS 
197 11016 616137 O00002 o01164 MOV 2(R15, $REGL GET THE FUNCTION INDICATED SY THIS KEY 
3 11024 oaGi3s ERROR 27 IF NOT, ERROR 
} BEFORE DOING A WRITE CHECK if WRITE IS 
‘ALWAYS DONE. OCCURANCE OF THIS ERROR 
2201 ‘INDICATES THAT SOMEHOW AN ATTEMPT IS BEING 
sMADE TO DO WRITE CHECK BEFORE A WRITE. 1S 
*PERFORMED. THE KEY IN ERROR MES Was 
04 ; THe ONE WHICH GAVE RISE TO THIS ATTEMPT. 
2205 i THE FUNCTION CODE IS THE FUNCTION PSSOSCIATED 
aud 011026 001456 CLR WCFLG ‘ABORT THIS WRITE CHECK 
2208 Sis fe ca 100000 BIS #81715, (RO) 
at tides Bt poo00s opcoo2 7%: MOV #6, 2(R1) ier UP BITS FOR WRT CHK 
2ele O11046 O42710 174340 BIC #174340,(RO) § :CLEAR OUT THE UNNECESSARY 
2213 *FLAGS FROM THE KEY 
ei 0110S2 oS2710 coo100 BIS #BIT6, (RO) i367 FLaG FOR WRITE CHECK, FOR 
ei 011056 000137 011520 IMP EXCUT 
2218 :NO HIGH PRIORITY COMMAND IN Q 


LOS 
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DZRKHF : EXERCISER PROGRAM 


-Pl1i 22-SEP-76 08:57 


1 ;NO HIGH PRIORITY COMMAND WAS FOUND IN THE @. FIND OUT THE FIRST AVAILABLE 
e220 He IN THE G, FOR EXECUTION. 
1 011062 AFN: CLR ;WAIT FOR ANY IMMEDIATE INTERUPT 
11064 CLR -(SP) Ned PSW 
ll 011074 Hoy #1$,-(SP) :RETURN FOR RTI 
ll RTI 
555s 91197 195200 1S: INCE RO 
gece +1925 reas po1244 MOV VL, -(SP) ;NEW PSW, LOCK OUT CPU 
a 11104 274% Ollll2 MOV #23, -(SP) : RETURN FOR RTI seeeeeeneaees 
1 O11110 RTI 
11112 012700 001306 2s: MOV #KEY,RO 
2235 re 055710 CHi: TST {RO} ;UNFINISHED COMMAND? 
il iGe716 ote eo) ;IN PROGRESS? 
lil i C 
111 11001 (RO). RI 
2240 011130 042701 BIC #177770, Ri 
a Bits : 73} 001426 Sts BUSY CRI) ;IS THIS DRIVE BUSY? 
: titas 105761 001436 Pete POS(RI) ;HAS THIS DRIVE BEEN POSITIONED 
:FOR ANY OTHER COMMAND. IF YES, 
:SKIP. IF NOT, PROCEED 
ee! O1l146 001023 BNE cH2 
I THER 
so 011150 910002 MOV RO, R2 Ee: ye ih ho! The 
011152 oo0414 “ oR rr} Net VERS OBRORRESS 
eee NOT HAVE BEEN COMPLETED 
011154 o0S712 1S: TST (R2) 3D SHOULD COMMAND ? 
ged 11156 100412 BMI EE 
111 10871 TSTB ss CR) ;IN PROGRESS? 
gene 1il i 1 BMI 23 
e lil il MOV (R2).R3 
258 011166 o4 pre BIC #177770,R3 
3559 iit 105763 1426 STB BUSY (R3) ;IS THE DRIVE BUSY? 
HLS ieee Aufl, «YP 2a Green ch ne as pa 
ests POINTED. 9 BY BY RO, (BECAUSE THERE I 
sone rfiore QMMAND THAT CAN BE PERFORMED 
aa 011204 005722 2s: TST (R2)+ : CHECK "sate pr THE a 
11 020227 001326 CMP R2, #KEY+20 
2268 Oll2l2 001360 BNE 1$ 
ects Bh ANY T WAS NO ie tier Becote 
011214 000470 BR EXNSK 4 THER IVE, THEN EXECUTE 
ger + OMMAND POINTED TOBY RO 
273 lel CH2: TST (RO)+ ee ENTIRE Q 
1535 BeaaS9 001326 CMP RO, #KEY+20 


SES 0063 
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Pll 22-SEP-76 08:5 SEQ 0064 

2275 011224 901334 BNE CHI 
e : “NO ¢ was F N THE @. CHECK IF THERE 
Ee TD Ne Tee ETE BOTR Fe a ua ern etS Ae ceo reStES 

1 167770 TSTB aRKCS S 0 
cee GLB EP if ahs UNF A 
eees 011234 000137 021344 IMP STatus HE CONTROLLER IS NOT BUSY FIND 
sce 911240 1 001306 1S: MOV Y,RO ott POSITIONED COMMAND AND EXECUTE 
2286 i 710 000020 2s: BIT sBIT4, (RO) oe 
cose lle Boerig ft fo IKE SURE COMWNO 15 POSITIONED 

11 10571 TSTB = (RO) ¢ S UNFINIS 
eet a TRF EAD 

11 11001 MOV (RO), RI HE DRIVE ig NOT IN BUSY 
2293 O11g6M 042701 7 BIC #177770,R1 
ee Gen ieee bones me apr 
22% 011276 000137 011520 - IMP EXCUT ;G0 EXECUTE THE COMMAND IF THE 
55a, 011302 005720 2S: TST (RO)+ ;ABOVE CONDITIONS ARE SATISFIED 
2299 011304 O20027 001326 CMP RO, #KEY+20 sCHECK ALL COMMANDS IN @ 
2200 011310 001355 BNE 2 
ens Oil3l2 600137 o21344 IMP STATUS 
2304 
g206 sENTER HERE IF THERE IS A PRIORITY COMMAND TO BE EXECUTED. 
307 
58 O11316 000137 011520 PRICMN: JMP EXCUT ;GO EXECUTE NON-SEEK COMMAND. 
2310 sENTER THIS IF A COMMAND IS TO BE PREPOSITIONED (BEFORE EXECUTING A 
ie : FUNCTION) 

13 011322 19 oo00e0 POSTION: BIT #BIT4, (RO) ;ALREADY POSITIONED? 

5313 Bt TSSe nate Bh CHE *YES, GO BACK AND CHECK IF REST OF THE 
esi [COMMANDS IN THE @ ARE TO BE POSITIONED 
2317 011330 737 012072 ISR PC, POSK 360 ygHec K, & SET UP FLAGS 
2318 O11334 004737 O2d2s6 JSR PC MND INFO ABOUT PRESENT & PAST COMAND 
2319 O11340 012777 OOD111 167654 MOY #111, SRKCS :POSITION THE COMMAND 
2320 O11346 OOSo4E CLR - (SP) : NEW DROP PRIORITY 
ee! 011350 piers 011356 MOV #1$,-(SP) : RETURN Rh toR RTI 

11354 RTI 
2223 011356 1S: 
2324 O11356 105737 001535 TST8 ~—sINTIFL 
2225 011362 001775 BEQ 4 ;WAIT FOR INTERRUPT 
eee 011364 016777 013164 167646 MOV #INTHND,ORKVEC ;RE-ESTABLISH RK INTERRUPT VECTOR 
327 011372 137 011062 IMP CHFAFN ?GO BACK AND CHECK IF ANY COMMANDS TO BE 
see :POSITIONED OR EXECUTED 


2330 


= EE —EEEEOEEOEOEOEOOEOEOEOEOEOEOEOEOEeEeeeeeeeeeeeeeeeeeeeee Eee 
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ZRKHF.P11 22-SEP-76 08:57 EXERCISER PROGRAM SEG OCES 
2231 iI THERE ANY NY POSITIONED 
Be OS BactRP A tll 1S Hwee 
ES iBUT weoeet oP SStEZON COMMAND (KEY) 
011376 012701 001306 EXNSK: MOV #KEY,R1 
BS ase farsi 000020 iS: SIT #8174, (RL) ;HEADS POSITIONED? 
+198 ? (R1) sFUNCTION COMPLETED? 
2341 O11412 100410 BMI 2 YES, BRANCH 
11414 105711 TSTB) ss (R21) ‘FUNCTION IN PROGRESS? 
1141 BMI a} 
114 ag MOV (R1) 
114 477779 BIC Meare R2 
11426 1 1426 TSTB © BUSY Re} ;DRIVE BUSY? 
347 011432 100005 BPL 3$ 
011434 005721 2s: TST (R1)+ ;CHECK ALL COMMANDS IN Q 
2350 O11436 920127 001326 CMP R1, #KEY+20 
S51 011442 001357 BNE 1§ 
O11444 o00425 BR EXCUT ;NO POSITIONED COMMAND WAS 
*FOUND IN THE Q. SO EXECUTE 
2255 :COMMAND POINTED TO BY RO 
5225 
e258 301 ALREADY POSITIONED COMMAND HAS 
2360 O11446 010137 001536 2S: MOV R1, SAVKEY :SAVE POINTER TO THE COMMAND(KEY) 
2261 ES :WHICH IS ALREADY POSITIONED 
este 011452 004737 912072 ISR PC, POSK GO AND POSITION THE COMMAND(KEY) 
FA sPOINTED TO BY RO 
2264 O11456 004727 O202s ISR SCMND :SAVE INFO ABOUT PAST & PRESENT COMAND 
e265 011462 012777 OOO111 167532 MOV ail, Sekce :SEEK, IDE, GO 
2366 011470 o0So46 CLR (SP ‘ALLOW FIRST INTERR 
e367 011472 Ole746 011500 MOV 848, -(SP) ;RETURN FOR RTI air 
2368 011476 OO0002 RTI 
ae 
2371 O11500 105737 001535 4g: TSTB ~—sINTIFL sDID INTERRUPT OCCUR? 
2372 O11504 001775 BEQ § *BR IF NOT 
2373 11506 012777 O12164 167524 MOV #INTHND, ORKVEC REESTABLISH INTERRUPT ADDRESS 
11514 013700 001536 MOV SAVKEY, RO ?RESTORE THE SAVED POINTER TO KEY 
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EXERCISER PROGRAM 

EXCUT: MOV (RO), RI 
sic 8177°70, Ri 
7éF (RO) 
BPL 1 
MOV (RO), SREGO 
ERROR 30 
ta ABRTL 

18: TSTB (RO) 
RPL 
MOV (RO), SREGO 
ERROR 30 
os ABRTI 

3$ TSTB ©BUSY(R1) 
BPL 4§ 
MOV R1, $REGO 
ERROR 2 
ge ABRT 

48: TSTB = ARKCS 
BMI ct 
ISR PC, GTYRG 
ERROR 3 
=e ABRT 

S$: MOV (60) Re 
IC 8177770,Re 
ney. RSLS 
MOV PCHND (RZ), RS 
MOV (RS), @RKDA 
SIT #RWS, IRKDS 
BNE S 
MOV 1, SRDRV 
ce PC’ GTYRG 
ERROR 

ABRT 


s EXECU 
aie 
a KEY 

;GET ORIVE NO 

THIS COMMAND UNFINISHED? 


THE COMMAND POINTED TS BY RO 
THE POINTER TO THE 


sGET KEY 

[AN ATTEMPT WAS MADE TO REEXECUTE & COMMAND 
;THAT HAS ALREADY BEEN EXECUTED BEFORE. 
:(ON DRIVE NO. GIVEN IN ERROR MESSAGE) 


;IS IT IN PROGRESS? 


;GET KEY 
;IF YES, ERROR 


;AN ATTEMPT WAS MADE TO REEXECUTE A COMMAND 
;THAT IS IN PROGRESS (ON OR . 
;IN EROR MESAGE) 


31S THE ORIVE BUSY? 
;GET DRIVE 8 
; BUSY® F 


fis ° N iat RIVE 
: fe Q T MADE Niner tart 

:A FUNCTION ON THIS DRIVE. THIS IS AN 

; UNEXC. ITION. 


;CONTROL READY SET? 


ite RKCS 


; CONTROL bebe} aed SET. THIS 15 aN 
SBOINT OF EXECUTION, CONTROL SHOES 
:BE NORMALLY READY. 


;FORM THE ADDRESS OF THE 
;PARAMETER LIST FOR THIS 
; COMMAND 


. 


:GET THE FIRST ITEM FROM LIST 
‘BE cK  ABORES 

;R/W/S RDY SET? 
;GET ORIVE #, FOR TYPING SERIAL #8 
GET RKCS ER, dS, 

:R/W/S ROY IS'NOT 

:@ (NON-SEEK) FUNC 
:TO BE E CUT D ON THIS DRIVE. 
:AN UNEXPECTE 


«SES O06E 
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SEP-7— 08:5 EXERCISER PROGRAM SEG 0067 
sPOINT OF EXE TION R/W/S ROY SHOULD 

016503 00002 tS: MOV 21 RS) RB fil SNCTTON TO 0 BE DONE 

ooo0c2 C 82,83 Iv A WRITE FUNCTION? 

BEG WRENC res IT IS WRITE 
°S NOT A WRITE FUNCTION 

gut goose NWRENC: MOV 2(RS),R3 T FUNCT oe Re_DOnE 
ies S 1e7212 aoe A Cun, <a 
pieese Beppo tesete MOV (RS); aRKBA T BUS tts 

020300 JSR PC, FNCMND ont INFO ABOUT PAST & PRESENT COMAND 
010377 167272 MOV R3, IRKCS ;SET SSE, IDE, FUNCTION, GO 
052710 900200 BIS #8177, (RO) iE opbhG. INDICATING FUNCTION 
052704 900200 BIS 881T7,R4 

fu CoONTal ng OFF T TO THE corms KEY 
sR CON *) BITS O-3, BIT 7 IS SET 

001426 MOVE  R4, BUSY(R1? :SET FLAG I INOIEATENG NG DRIVE aus? 

001534 MOVE RS" INTFLG :SET FLAG FOR INTERUPT USE 

021344 IMF STATUS 

014234 ABRT: JSR PC, DRVABT ;ABORT THE FUNCTION 

O1s44e 5k PC? CHKDRY !GC CHECK, DRIVE ERRORS 
caits D10SSé ABRTL: IMP QMNGER 
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+5 OF oabe TQ BE WRITTEN 


;GET obrcrate’ BA OF BUFFER 
;G0 GENERATE BUFFER 
;SAVE 8 OF WORDS 


, 
J 
, 
, 
, 
, 
. 
, 
J 
. 
’ 


$ BEVE RT ART NG Bus ,AOORESS OF BUFFER 


; THE FUNCTION TO BE EXECUTED IS & 


;WR 
;GE 


eee ee ee ee 


i 

tu 
= , £4 
5 a fe 
ews 
in. Sons 
of 2a-° 
45 BatS 
we 2Sy° 
Gen gys= 
wee OCSs 
-SOo +e 
mei. Ghee 
vex Ee 
ar def 
oag A 


S 

$ 
MOVE 86 RY 
MOVE = RY 
IMP 


167154 
ilar 
901426 
oois34 

1244 


Oie042 010377 
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e0S2 
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e0te 110437 
012066 000137 
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04-OCT-76 13:29 PAGE S& 
EXERCISER PROGRAM 


POSK: MOV (RO), RI 
BIC 8177970, Ril 
i318 BUSY (RL 
L 1 
MOV R1, $REGO 
ERROR 2 
BR 7$ 

1s TSTB @RKCS 
BMI 
ISR PC, GTYRG 
ERROR 
BR 6S 

23: MOV (RO) ,Re 
SWAB OtséRR 
BIC #177770, Re 
NOY PENND(R2) 
MOV (Ray EKO 
BIT RWS; IRKDS 
BNE 
MOV R1, SRORV 
JSR PC’ GTHRG 
ERROR 4 
5k 6$ 

38: MOVE = R2, BUSY 
BIS8 #BtT7,BUSY(R1) 
BIT #8173; (R 
BNE 4§ 

MOVB #377, POS(R1) 
BIS eBIT4, ( 
OR cg 

4g: BIS #8177, (RO) 

cs: MOV SINTISK, ORKVE 
MOV PPRLVL, JRKSTA 
CLRB —sCINTIFL 
RTS 

6S: JSR PC, DRVABT 
JSR PC’ CHKDRV 
NOP 

7$: TST (SP)+ 
IMP QMNGER 


DA 
core iB NUT 4 # yt 
ie Sh arrest. a 
iF 0 NORMALLY 


;STARTING WORD OF COMMAND TABLE 
tee’s RDY SET? 
T DRIVE #, FOR TYPING SERIAL # 
T RKCS DS, 
GET R ROY IS'’NOT SET FOR THE DRIVE. A 
: (POSITIONING) SEEK WAS SUPPOSED TO BE 
; BE EXECUTED ON THIS DRIVE. $ 1s 
XPECTED ONDITION AT THIS 
:POINT OF EXECUTION ROWS Y SHOULD 
NORMALLY SET. 
SET FLAG INDICATING DRIVE BUSY 
;IS THIS A SEEK COMMAND 


;SET FLAG INDICATING, THIS Ainst. POSITIONS 
SET FLAG INDICATING THIS COMMAND 


;POSITIONED. SET FLAG INDICATING 
; N PROGRESS 

;PSW ON INTERRUPT 

sCLEAR FLAG INDICATING - INTERRUPT 
: OCCURRED 


;ABORT THE FUNCTION 
GO CHECK, DRIVE ERRORS 


;POP THE RETURN ADDRESS 


SEG 0069 
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001S3S 
001244 


020200 


020000 
022i30 


001426 
001162 


THIS HANDL 
“SEEK BEING 


-0CT- 13:29 PAGE S7 
EXERCISER PROGRAM 


TER ISSUING A SEEK FOR POSITIONING, AN INTERRUPT IS ALLLOWED TO TAKE 
ER oeeyices THE FIRST INTERRUPT, WHICH OCCURS AE A RESULT 


INTIFL 


PPRLVL ,2(SP) 


EC » CHKCRDY 


sSCP, JRKCS 
PC ,RGYSOR 
le 


JRKCS, RO 
#177760, RO 


#10,R0 


PC, GTYRG 
6 


@RKDA, RO 
$17777,RO 


8177000, A RO 


; INDICATE THAT INTERRUPT TOOK PLACE 
:CPU PRIORITY TO 5 ON RETURN FROM 
INTERRUPT 


OTR ERY se rtp er 


; INTERRUPT ON INITIATING SEEK 
;SCP BIT SET? 


GET _RKCS AND DRIVE # FOR 
; TYPING Se FR BBtv 5 
:SCP SET AFTER FIRST INTERRUPT 
s ACCEPTING SEEK. A SEEK WAS INITIATED, 
as B RESULT OF WHICH (THIS) FIRST 

sINTE T OCCURRED 

T BE SET AFTER THE FIRST INTERRUPT. 
ity pares Ser ONLY AFTER THE SEEK 


i Lote 


eRe THERE IS A SEEK FUNCTION 
;IN RKCS 


ss hbes ER, DS, DA 
HRKEs - NOT CONTAIN *SEEK’ FUNCTION. 

7A SEEK NITIATED AS A RESULT OF WHICH 
; (THIS) FIRST INTERRUPT OCCURRED. RKCS 
:SHOULD CONTAIN THE SEEK FUNCTION BITS, 
:BUT IT DID NOT 


;GET THE DRIVE # FROM RKDA 


ot nas DRIVE NO. WAS BUSY 


F 
GEt ORIVE ac FROM fKk0A} 
aust" FL DRIVE WAS NOT SET. 
Eon Ric A) WHICH PAUSED (?} 
as ee INTERRUPT SHOULD HAVE BEEN 


TWARE FLAG). NOTE WHENEVER 
Y OPERATION IS INITIATED ON ANY DRIVE 
Busy" FLAG FOR THAT DRIVE IS SET. 


;FORM THE ADDRESS OF 
; THIS KEY 


ee 


Gat tees eal 


SRR 
WO NOU .£ fue 


Ronee ane Ree 


a 


ee ee ee 


al er 
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001436 
001162 


001474 
001474 
001474 


000003 
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EXERCISER PROGRAM 


4§: 


SS: 


6$: 


7$: 


13:29 PAGE Se 
234 - aa ates 
MOV R1, SREGO 
ERROR 10 
TSTB = POSRI) 

BNE 

MOV R1,$REGO 
ERROR 10 

TST IRKCS 

BPL 3 

BIT #BITS,ERCODE 
BNE 

BIC #81TS, ERCODE 
BIS #BITS,ERCODE 
JSR PC, RGHSOR 
ERROR 11 

IC #BIT4. (RO) 
CLRB BUSY RL) 
CLRB = POS(R 

JSR 

BIS ot eie Fo 
INCB —-RETRY(R1) 
CMPB sé RETRY(R1), #3 
BLE 23 

JSR PC, DRVABT 
CLR RETRY(R1) 
CLR ERCODE 

RTI 


;1S THE KEY ACTIVE FOR *POSITIONING’? 


;GET DRIVE NUMBER 
sPOSTT IONING FLAG (IN THE KEY) IS NOT 
SET FOR THE INTERRUPTING DRIVE (GIVEN 
IN EROR MESAGE) 


pot THE POSITIONING’ FLAG SET’ 
DRIVE # FROM RKDA 


+ INTERRUP IF TonN 


SULT OF IMITATING &. (P05 
WHENE 5 INITIATE 


: OSETION THE HEADS. THe Pott TONING 
Toe ( ere IS SET. ~~ ont vat THIS 


;E 
SPUR NE ME Tbe Ee 


;ANY ERROR? 
NO - RETURN 


;SAME ERROR 


;WILL 

‘CLEAR POST TONING" BIT 
:CLEAR 'BUSY’ FL 

:CLEAR *POSITIONING’ FLAG 


;CLEAR THE ERROR 

; INDICATE y OE ig NY ON 
INCREMENT RETRY COUNT 

; DONE RETRIES? 


;ABORT THE FUNCTION 


SEG 0071 


dhe SanbnRe 


s. 


RSRERRE RES 
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08:5 EXERCISER PRO a ' SEG 0072 


sits ROUTINE IS ENTERED UPON COMPLETION 
:O0F A SEEK OPERATION UNDER INTERRUPT MODE 


020200 SKCMP: JSR PC, CHKCRDY ;CONTROL READY 
ERROR 13 :CONTROL BOY N Nor cer, AFTER A SEEK 
166372 1S: MOV JRKDS, - (SP) GET DRIVE # THAT INTERRUPTED 
022076 ISR PC, CROTLF :ROTALE girs 15,14,13 TO POSITION 
MOV (SP)+,R1 toe" THE ROTATED BITS (DRIVE ID BITS) 
001426 iste BUSY (RL) ‘CHECK THAT DRIVE WAS BUSY 
021740 ISR PC, GTYRG 
ERROR 14 Y’ FLAG FOR THE INTERRUPTING DRIVE 
if DS) WAS NOT SET. DRIVE # (15,14,13 - RKDS) 
; INTERRUPTED AFTER SEEK WAS COMPLETE BUT 
:* BUSY? FLAG ORRSPONDING 10 THAT DRIVE 
WAS CLE F THE CORRECT DRIVE Wes 
s INTERRUPTING "BUSY’ FLAG SHOULD HAVE 
001426 2s: MOVE BUSY (RL) RO FORM THE ADDRESS OF THE 
177600 BIC 77600, RO KEY 
0013 0 
Bit EY, Pao) ;CHECK THAT POSITION BIT WAS SET 
001162 MOV R1, SREGO :GET DRIVE NUMBER 
ERROR 10 POSITIONING FLAG (IN KEY) IS NOT SET 
iSel afar INTERRUPTING DRIVE (GIVEN IN EROR 
001436 3S: TSTB POs(RL) CHECK POSITIONING FLAG WAS SET 
001162 MOV R1, SREGO 
ERROR 10 POSITIONING’ FLAG WAS i 
,w0ING A (POSITIONING) SEEK, THE 
:*POS#’ IS SET TO INDICATE THAT DRIVE 
IS POSITIONING HEADS (SEEKING). THIS 
ERROR INDICATES THAT FOR THE INTERRUPTING 
DRIVE. (RKDS) POSITIONING FLAG WAS 
O1E44E 4S: ISR PC CHKORV G0, CHECK FOR DRV ERORS (oPL DRU, DRY, WPS) 
BR PFTER IF THERE IS A ORV ERO 
‘THE DRIVE HAS BEEN DE BeCeLEETED. ALL 
“FURTHER COMANDS ON THAT DRIVE ABORTED 
*RETURRN HERE IF NO DRIVE 
166272 166302 MOV JRKDS, ARKDA GET THE DRIVE # FROM DRIVE ID BITS 
IN RKDS AND ADDRESS THE DRIVE 
000100 166262 BIT sRUS, RKDS RWS RDY SET? 
521740 ISR PC, GTYRG :GET RKCS, ER,DS,D 
001250 MOV RI; SRDRV T DRIVE & POR” TYPING SERIAL # 
ERROR 15 Ws RDY NOT SET FOR INTERRUPTING 
DRIVE (RKDS), AFTER SEEK WAS COMPLETED. 
001000 166240 S$: BIT #SIN, ARKDS :*SIN’ ERROR? 
BNE PSINER YES, BRANCH 


I06 


MAINOEC-11-D2RKH-F MACYII 27( 1006) =-% 13:29 PAGE &0 
BOE Pit Se-sep-7e haces! °”' evERCToER PRecEan 

269% O12760 O3e777 OMODDD 166234 BIT HE DRKCS 
e632 C1276 901060 BNE PORKER 
3699 012770 105061 o01426 CLRB «BUSY RI) 
5556 Bisvr4 AoaSs? Ris) BE 





ives HARD ERROR? 


ERRORS DETECTED ON POSITIONING 
‘CLEAR BUSY FLAG FOR THIS ORIVE 


SEG 0073 
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EXERCISER PROGRAM 


2701 : THERE WAS A 'SIN’ ERROR ON 
2702 ; is a 3 rc, nae :DOING POSITIONING (SEEK) 
5588 pisces yee B5t S08 : nee 1 Seam ;GET ORIVE #, FOR TYPING SERIAL s 
g705 912006 104016 ERROR :*SIN’ ON DOING (POSITIONING) SEEK 
1301 2710 oo0020 BIC BTM (RO) TBO TIONING’ BIT 
ee times [eel flor CR BEV, ER BY RISA ls onve 
3703 Bt ? B 35R C,cL IN :CLEAR *SIN’ ERROR 
geil 013030 004737 016172 ISR PC, SINCNT ; KEEP COUNT OF ’SIN’ ERRORS. IF MORE 
l :THAN *MAX’ DESELECT THE DRIVE 
e713 013034 900432 BR PFTERR :RETUN HERE IF COUNT=MAX 
sot¢ sRETURN HERE IF COUNT LESS THAN MAX 
eig 013036 105261 OO1446 PSRTRY: INCB RETRY(R1) :INCRMNT REETRY COUNT 
i 013042 105061 001436 CLRB POS(RI) : CLEAR POSITION FLAG 
S718 Gra 121 BBAIES oni, «= HEB Rcety bea eta 
21 013062 0527 oco0 T12, (RO) F PRIORITY ON RETRY 
eree Bt DEE Boson - Ble ee! saat Pam : 
2724 013070 oS52710 104000 1S: BIS #104000,(R0) § ;INDICATE COMMAND ABORTED 
eres Qt 405061 001446 CLR RETRY (RI) :CLEAR RETRY COUNT FOR FUTURE USE 
13100 6101 V R1,Re 
2727 013102 06302 ASL 
2728 013104 O0S262 ool1E72 INC ABORT (R2) ; INCREMENT ABORT COUNT 
2729 013110 042710 910000 BIC #81712, (RO) :CLR HI PRIORITY BIT 
2730 013114 104421 02165 TYPMSG ,MSGIO :PRINT ABORT MESSAGE 
e731 013120 RTS pc 
2733 012122 o42710 o10000 PFTERR: BIC #B1T12, (RO) ;CLEAR HI PRIORITY BIT IF SET 
e734 012126 o00e RTS PC 
ae 013130 904737 921740 PORKER: JSR PC, GTYRG ;IF ANY ERROR BIT IN RKCS SET 
131 10137 601250 MOV Ri; SRDRV :GET DRIVE #, FOR TYPING SERIAL # 
013140 104017 ERROR 17 :ON ING P POSITIONING (SEEK) 
33 ENTER 
2741 013142 004737 015714 ISR PC, CLRERR CLEAR THE HARD ERROR 
2742 013146 042710 od0020 BIC #BiT4, (RO) ‘Pear POSITIONING BIT IN KEY 
743 013152 105061 001436 CLRB = POS RI) :CLEAR POSITIONING FLAG FOR THIS DRIVE 
a O13156 105061 001426 CLRB BUY CRI) :CLEAR BUSY FLAG FOR THIS DRIVE 
2745 012162 000725 BR PSRTRY 








SS SS 


06 
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OZRKHF.P11 22-SEP-76 O8: EXERCISER PROGRAM 


2746 sENTER THIS ROUTINE WHEN AN INTERRUPT 
ae OCCURS. otOTE THERE 19,96, 07HER 
es 013164 105037 001534 INTHND: CLRB =—sINTFLG CLEAR FLAG TO INDICATE THAT 
1 913170 013766 001244 900002 ov PPRLVL .2(SP) CPU PRIORITY TO SON RTI 
5c36 pias PB 34 _— EREOR 24’ + EON Tot EF t Pap AFTER INTRUPT ON COMPLETION 
2754 -OF FUNCTION, IT a SET 
gree 013204 020000 166010 1S: BIT #SCP, IRKCS :SCP SET? SEARCH CO 7 
13012 ate BEQ 2s 
2757 013214 004737 012612 ISR PC, SKCMP ;GO TO SEEK COMPLETE ROUTINE 
soe8 pi 3569 yeaa 166002 23: Roe JRKDA, -(SP) sGET THE DRIVE # TO WHICH 
2760 OMMAND WAS I 
Erte 01322 004737 022076 ISR PC, CROTLF INTs BITS 46, 14,13 TO POSITION 
4 13292 0 MOV SP)+.RS pap’ OFF THE DRIVE # FROM THE STACK 
5 Ol 105765 001426 TSTB gosy che} :CHECK THAT DRIVE WAS BUSY 
coe YB seco 
aes 013246 104007 ERROR 7 ;’BUSY’ FLAG FOR THE INTERUPTING DRIVE 
2769 WAS NOT SET. WHENEVER ANY ACTIVITY 
2770 31S INITIATED ON A DRIVE, THE ( WARE ) 
e771 *BuSY* FLAG IS SET TO INDICATE THAT 
2772 ‘DRIVE 1S BUSY DOING SOMETHING. 
2773 : OF THIS ERROR INDICAT 
2774 :THAT THE *BUSY’ FLAG FOR THE INTERRUPTING 
2775 ‘DRIVE (RKDA) IS CLEAR! 
2776 013250 1050S 001436 3S: CLR Po OS(RS) oe ; CLEAR THE POSITION FLAG 
aes Bt hissee ToSsER BIC £17766, | ENMAND ere 
2779 013264 062700 0601306 ADD 
2780 013270 000010 BIT serra ¢ (RO) ;CHECK IT’S NOT A SEEK FUNCTION 
2781 013274 001401 BEG 4§ 
e782 013276 104020 ERROR 20 : (SOFTWARE) FLAG FOR THE INTERRUPTING 
2783 :DRIVE (RKDA) INDICATES THAT A SEEK 
2784 FUNCTION WAS BEING EXECUTED ON T 
2785 ‘DRIVE. IF THAT’S THE CASE, SCP BIT SHOULD 
2786 : SE K DONE INTRUPT, BUT IT 
2787 : T. NOTE, HERE THERE IS'A 
2788 OF MULTIPLE ERRORS OR ERROR 
2789 :MISINTERPRETATI 
2790 013300 105710 4S: TSTB —s_- (RO) :CHECK THAT FUNCTION IN 
2791 013202 100403 BMI c$ :PROGRESS BIT WAS SET 
32 013204 010537 ool1b2 MOV RS, SREGO GET DRIVE 
013310 104031 ERROR 31 IF NOT ERROR 
34 j /EUNCTION IN PROGRESS’ FLOG (IN THE KEY) 
795 :WAS NOT SET FOR THE INTERRUPTING DRIVE. 
27% - IF THIS DRIVE WAS BUSY DOING THE 
2797 sFUNCTI THE ABOVE FLAG SHOULD BE SET. 
38 013312 011002 SS: MOV (RO), Re : CHECK K Tae THE INTERRUPTING 
013314 042702 177770 BIC #177770, Re s DRIVE (IN RKDA) IS THE SAME 
013320 o20s02 CMP RS,Re :THE DRIVE IN THE KEY 
2801 013322 O01405 BEQ 6$ 


| 
| 


Z 
f 


200000000000 &.. 


sepa ¢ 


0-+0 +6 +> + &-8-+ & +o --8 


Hatttitetetedtds 
WO NOrUl £t9TU 


Bees aa Visit 


wee 
2 


pees bats keisitcins 


Hy 
8 


a 
ths 
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i 
1 22-SEP-76 08:57 EXERCISER PROGRAM SEG 0076 
1 1 11 MOV , $REGO :GET EXPCTD DRIVE NO 
He ALE BRL my RE Gy BES HEL 
1 j ERROR 32 [UNEXPECTED DRIVE NO. INTERRUPTED 
1 6S: ASL Re 
] MOV (RO), R3 
1 MOV RO, SAVKEY 
t33eo ga2703 177770 Ste’ 8i77770,R3 T POSITION OF THE PARAMETER 
igo A ‘ ‘eer PRON HE KEY 

165640 V CS.R4 
1336 Diese d02032 at S17770L RY TERR ee FUNCTION Se 
: ‘Eee AND THE KEY ARE } 

013372 126504 o00002 CMPB sa (RS), R4 
1 9014 BEQ 7$ IF NOT, ERROR 
1 16537 900002 001162 MOV 2(RS), SREGO :GET EXPCTD FUNCTION CODE IN RKCS 

3406 010437 O01164 MOV RY, SREG] sGET ¢ vD 
le 1 ERROR 33 FUNC THAT is IN RKCS AFTEP THIS 
13414 042710 900200 7$ BIC #817, (RO) NTR "FUNCTION ny BROGRE ace ahi es 
sete 142761 bo5200 col42e BICB aB IT? BUSY (RI) CLEA BUSY FLAG FOR THIS DRIVE 
Suse BSdos a3 , EE TKERE Whe BY DRIVE. EROR 
:DESELECT THE DRIVE AND EXIT 
IF NO ERROR, RETURN HERE 
3434 932777 po1000 165554 B17 wSIN, ARKDS :SIN ERROR? 
3444 004737 022130 ISR PC, RGHSDR :GET RKCS, ER Ds DA AND DRIVE # FOR 
:TYPING SERIAL DRIVE 
3450 104016 ERROR 16 SIN ERROR 
3452 004737 O16060 ISR PC, CLRSIN 
3456 004737 Olbi7e2 J5R PC’ SINCNT ;HELP COUNT OF SIN’S. IF MORE 
:THAN MAXM ALLOWABLE. DESELECT THE DRIVE 
m2 00002 RTI ?RETURN HERE IF COUNT= 
RETURN HERE IF LESS THAN MAX 
DIZ464 105261 OO1446 INCB —- RETRY(R1) 
01370 iee76l 000003 o01446 CMPB Osaw#3,, RETRY(R1) 
13476 O014 BEQ 8g 

Be frerlt BGS He ee? 

013510 Bopabs RTI ; 

013512 004737 014334 gS: JSR PC, DRVABT ;ABORT THIS FUNCTION 

013516 oo000e 95: RTI 

013520 032777 O40000 165474 108: BIT HE , IRKCS ;HARD ERROR? 

bi zeb 001076 BNE HROERR 
| 032 100000 165464 BIT #ERR, IRKCS ;SOFT ERROR? 

013538 901002 BNE SFTERR :YES 
13540 000137 o14206 IMP :NO 


MO6 


oa ae MACY11 27(1006) O4-OCT-76 13:29 PAGE &4 
OZRKHF P11 22-SEP-76 08:57 EXERCISER PROGRAM “SES 0077 


2es3 :THERE WAS & SOFT ERROR 
see 
4 000001 165446 SFTERR: BIT £, IRKER WCE? 
po tae ar ome | uO 
13554 032737 000001 001474 BIT SBITO,ERCODE § ;ALREADY WORKING ON A WC ERROR? 
e550 l ee 4 SNE 3$ sYES — IGNORE TH THIS ONE 
1 4 37 900001 001474 I #2170, ERCODE SANY OTHE RO oe 
ees 13276 peLOSS 90000: 001474 Be t3170, ERCODE iS ig RORY Ts Eun 
2865 013602 O0S262 001632 INC WCECN(R2) sINCREMENT WCE COUNT FOR 
see? 013606 104421 002070 TYPMSG .MSG2 ‘THIS DRIVE 
013612 032777 o00002 165400 1S: BIT CSE, IRKER CSE? 
| 2869 013620 001417 BEQ 2s 
1 001474 IT #8111, ERCODE READY WORKING ON A CS ERROR? 
Pal piss Baeza? 9000 Ete . Hes ~ {chore THIS ONE 
2873 013632 042737. 000002 001474 BIC #81T1, ERCODE OTHER 
013640 4g YES 3,08 ABORT rut FUNCTION 
1364 po0002 001474 I #8171, ERCODE THE CS ERR 
13650 O0S262 o016Se2 INC CSECN(R2) INCREMENT CSE COUNT FOR THIS DRIVE 
| e768 O13654 104421 002076 TYPMSG ,MSG3 
 pg79 OL 104421 002120 2: TYPMSG 
-ppBO «013664 021644 JSR : GO TYPE OUT THE FUNCTION THAT GAVE ERROR 
Sa Hee BEE BS je Bs 
13674 ? 134 JSR PC’ GTSORV ;SAVE DRIVE #, FOR TYPING SERIAL $ 
2883 013700 104021 ERROR 21 :SOFT ERROR ON PERFORMING A DATA 
2es4 : TRANSFER RKDA PRINTED OUT IN ERROR 
2885 iMeSsAGe IS BROKEN, DOWN INTO DRVE &, 
eee 913702 2270s ooc004 cre 84,R4 tas tA READ FUNCTION? 
| ees 013710 004737 017016 JSR PC, DATCHK :GO CHECK THE DATA READ 
2891 013714 000137 O140EE 2S: IMP CMNERR 
| 2692 013720 ere 514124 4g: IMP CMNABT 
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ooo x ST EROR DER ING THE DATA 
Ee + RGNcrER infer ERE 
013724 032777 O10000 165266 HRDERR: SIT aSKE , IRKER ; SKE? 
2898 013732 001421 BEG 1$ 
5833 013734 032737 000004 001474 BIT #8172, ERCODE READY WORKING ON A Sk ERROR? 
eae ie pier3 oo0004 001474 ia Sor ERCODE one 
13023 1064 CMNABT sar orig FARO eats FUNCTION 
2904 013754 052737 oO00004 001474 BIS #B1T2,ERCODE :SET THE SK ERROR B 
| Sao 13762 gosee2 001 INC SKECN(R2) s INCREMENT COUNT FOR SKE 
3207 13766 9015 INC HECN(R2) :ON THIS DRIVE 
| 03 013772 104421 o020b2 TYPMSG MSGI - 
ll 013776 167740 165214 1S: BIT #167740,dRKER  ;ANY HE BESIDES SKE? 
| = Bt aaa8 atts BEQ 2g : 
14 O1 032 000010 001474 BIT WBIT3,ERCODE — ;ALREADY WORKING ON A HE ERROR? 
rt Bibi 00: BNE CMNERR IGNORE THIS ONE 
e218 14016 042737 000010 001474 BIC seIT3 ERCODE ANY OT ait FUNCTION 
e418 Biapee pe3032 000010 001474 BYE 173, ERCODE THE HE BIT 
-p820 «914034 001562 INC HECN(R2) s INCREMENT HE COUNT FOR 
| eze1 014040 104421 002104 TYPMSG ,MSGH : THIS DRIVE 
= 2923 O14O44Y 104421 002120 2:  TYPMSG MSGS ;PRINT *ON DOING’ 
| 924 O140SO 004737 e164 ISR Pc, TYPFN :GO PRINT OUT THE FUNCTION 
Sas? *WHICH GAVE THIS ERROR , 
«Be Se Be scan roa TeINe Sara. 
| e2e3 ste 104022 ERROR 22° + RRB PRR ON DOING DATA XFER 
' p931 O14OBE 105261 OD1446 CMNERR: INCB  RETRY(R1) ; INCREMENT RETRY COUNT 
o23¢ 14078 ieer6l 000003 O01446 CMPB ~—s«a&#3, RETRY(R1) 3 TRIES IN ALL? 
| 3333 O14 1411 BEG = CMNABT SYES, ABORT THIS FUNCTION 
141 165426 BIS 8BIT12,aSAVKEY ;INDICATE HIGH PRIORITY ON RETRY 
| Saar yet 165420 BIC #BIT4.ASAVKEY  ;CLEAR "POST TIONING HEADS’, IF SET 
| 2937 014116 004737 015714 JSR PC, CLRERR :CLEAR THIS ERROR 
3338 014122 RTI 
e240 014124 001474 CMNABT: CLR ERCODE ;CLEAR ERROR CODE 
1 014130 104421 002532 TYPMSG ,MSGe7 
| e942 014134 904737 014334 JSR be DRVABT ;ABORT THE FUNCTION 
 p843 014140 032777 O10000 165052 BIT #SKE, JRKER ; SEEK ERROR? 
«p44 «~O14146 OOT4E BEQ :NO 
«B45 «O14ISO 104416 CON. RFSET *RESET THE CONTROLLER 
2S4e OiNIEe 010137 001502 MOV R1,QDRV ;SET ORI VE NUMBER 
| 2947 OI4ISE o00241 *CL "er 
| ps4¥e O14160 37 001502 ROR QDRY : LEFT JUSTIFY DRIVE NUMBER 


i 
Si 


. 
‘ 


—— ae - - - ee a ee 


’ 
/ 
/ 
( 
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MS INOEC-11-D2RKH-F MACY 2711006) 04-OCT-76 13:29 PAGE 66 
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eer Enis Sete; BRIERE Foe SLET JUsriY Setve Noreen 
e251 S1SI73 Sbe037 OCLECE ROR. g0R LEE? JUSTIFY DBIVE NUMBER 
3 O14 tBeaie RN REE RE Tt The CONTRO 
E94 Oi4e04 D000Ge 38: ATI ;THIS DATA TRANSFER 


ne ee Ee 


CO ne te ES SS TT 


ee 


a 


014212 


014314 
Biuase 
14322 


014326 
014332 


Y23 27¢ 
-SEP-7— 08: Bece? 


0014S6 


165236 


a ee a ee 





> ania: 


MSG28 
RETRY(R1),-(SP) 


4 
sBIT1S,R3 


R3,WCFLG 
5$ 
#6,R4 


4$ 
WCFLG 
SB1IT15, (RO) 








7 IF THERE WAS NO HAF 
;SOFT ERROR ON DATA 
ENTER HERE 


5 or 
T *RANSF ER 


;CLEAR PRIORITY BIT 7 

iB ee statistics “oN THIS 
;WAS IT A ‘READ’ FUNCTION? 

;IF IT WAS "READ’, CHECK THE DATA 


;WAS IT A "WRITE? FUNCTION? 
s]5, MRT CHK’ TQ FOLLOW THIS 
:SE1 rin rf ‘7 INDICATE 


ieOuL ou t ue INDICATE 
fee Me Fas LOWER BYTE 
TO THE 


;WRT CHK FUNCTION? 
;CLEAR WR CHK FLAG 


;SET FLAG TO INDICATE THIS 
FUNCTION IS COMPLETED 





et iats 


OOOOoOOOOO00000 


0-0 +0 +8 <-> -0-- 0-8 «0 +0 ++ +9-+ 


S8Bsses 

0 +0 +0920 29 

£ LEEEELEEELS 
bf 


(ren £utue- 


SS EF a 


MACY 


001672 
00i67e 900010 


016220 
002165 


Y22 27(1006) 


ee 
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EXERCISER PROGRAM 


DRVABT: MOY, RE,= (SP) 


CLRB 


Is #104000, (RO) 
81 s8iTic, (RO) 
MOV Ei. 
ASL 
INC ABORT (R2) 
CMP ABORT(RE), #10 
BLE 
IMP LCT 

18: MOV (SP)+. Re 
TYPE mscid 
RTS tc 





:8B087 THE FUNCTION ON DRIVE POINTED TO By RL 
i BaBe THE Bate F hoge THAN &. AGORTS 
;SAVE R2 


sINDICATE THAT FUNCTION IS ABORTED 
;CLEAR HIGH PRIORITY BIT IF SET 


BR THE DRIVE 


3 ORE Re 
; TYPE “ABORTED” 
s RETURN 









— SEG 0081 
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a 


=5 
a 


2 S2eeee 
5 EEEEEE 
r'cor 


Be 


oOoMwm 
ers 
£ 


2 Stale Goa Se a INVER oe 


rr - 


4456 104405 
Cl44e0 004737 
O14464 000137 
014470 932777 
3042 014476 001422 
3043 014500 032777 
3044 aheat 001410 
Se Siuéie 
2047 Oe an 001013 
Sous Sisees Bourg? 
3050 014526 O00406 
3051 014530 05037 
«B52 014534 104401 
«BOSS o14540 004737 
«ES Be 
: Sse Oiee9 00000 
| 14556 004 
| Be piss poe 
3060 014566 010004 
| 3061 014570 o0S001 
| Bose 014672 010120 
«+3063 014574 062701 
| 3064 14600 1 
 «~ Bes 014694 001376 
| «-BOeE O1460— 912700 
| See Biveia Bievor 
| 
| 368 Gives0 poeoe0 
| 3070 Oiseee 005201 
| 3071 O14ee4 001375 
3076 





1 27( 1006) 


002056 


164442 
164432 


164366 





pFOLL 


;THE QUEUE IS LOCATED AT *CMND’ (TO °*CMNDS8"). 


04-OCT-76 
EXERCISER PROGRAM 


;THIS ROUTINE GENERATES THE 8 COMMAND REQUESTS AND PUT THEM IN THE GUEUE. THE 


ee rity Bu TKE Cometic WILL Be PERFORMED. 


OER, “SURFACE, SECTOR. 





Brive Ronen f 


FUNCTION TO 


teas 


GENSRG: CKSWR 


73: 


6S: 


13:29 PAGE &9 


OR DATA TRANSFER. 


REPCNT 


1 
PCNTR, REPCNT 
65S 


4 
<15)<12>/END OF 


SPASS, -(SP) 
(SP) 


PC, REPSTAT 
sebP 








;DECREMENT REPETITION COUNT 
CONT TIE IF NOT 0 


T 
5 TYPE 


S net REPETITION COUNT FOR EXERCISER 


TRette 


set Wor SET ? 


ae ie 


oar T THE 


bie MU Be 


FROICATOR 


READY TYPED 
1H ICATOR 
SWR 03 SET) 


‘EP RAR THE INDICATOR 


;HALT? 


;NO ; 
YES, PRESSING CONTINUE RESUMES PROG EXECUTION 


;CHECK IF ANY DRIVES PRESENT 


;CLEAR THE 
:BITS 8,9,1 


8 
0 


C 
I 


OMMAND KEYS 
NDICATE THEIR 


!POSITION'’O,1,2,3,4,5,6,7 
:CLEAR THE PARAMETER TABLE 
;FOR THE 8 COMMANDS IN Q 


: (8X4) WORDS IN ALL 








a ne ee ee 
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| DZRKHF.P11 = 22-SEP-76 08:57 EXERCISER PROGRAM 
3073 O14626 OO4737 O1SE76 JSR PC, CLRFLGS 
ae 
3077 014632 022727 900001 001264 GENI: CMP #1, DRVPRS 
3078 O14640 O0100e BNE 22g 
3078 O14642 CLR RO 
3080 O14644 ggo4e0 se 38 
381 OL4646 737 oesS04 228: JSR C, SRAND 
3083 
3084 O14652 025636 RSDRVL 
see Ol46S4 013746 O25640 MOV RSDRVH, - (SP) 
3087 O14660 OOS046 CLR -(SP) 
ee 014662 013746 001520 MOV DRMAP, -(SP) 
| 3080 014666 004737 925120 ISR PC. ae$DIV 
3031 014672 005726 TST (SP)+ 
3093 014674 O12600 MOV (SP)+,RO 
3094 O14676 020037 001264 CMP RO, DRVPRS 
309S 014702 001001 BNE 3$ 
| 3086 014704 955300 DEC RO 
_ 3097 O147D6 001S02 3S: CLR QORV 
} 3088 O14712 116037 001254 o0150e MOVE POR(RO), QDRV 
30939 014720 105737 001502 TSTB = QDRV 
| 2100 14724 100016 BPL 
| 3102 014726 142737 900200 991502 BICB #200, ODRV 
, 3103 132737 000001 90150 BITB 81, QORV 
| 3108 014742 01404 SEQ 31$ 
3108 014744 0057327 015632 TST ODDEVN 
3107 014750 001730 BEQ GEN1 
3108 014752 900403 BR 32$ 
3110 014754 005737 015632 318: TST ODDEVN 
zi 014760 00133e BNE 228 
| 3113 O14762 004737 Ocesso4 323: JSR PC, SRAND 
| 314 O14766 Oesé4e RSFUNL 
| 3116 014770 013748 o25644 MOV RSEUNH, ~(SP) 
| 3117 014774 oO0S046 CLR -(SP) 
ie hee Bare BBLS me Beate 
zie 01 005726 TST (SP)+ 
3123 015010 021627 cD0003 CMP (SP), #3 
—«-BTBS O1EO14 apt BNE 208 
| Ble2S 015016 o0S316 DEC (SP) 
| zige 016020 012637 o01S12 20$: MOV (SP)+, OFNC 
+3128 018024 004737 oce2sso4 ISR PC, SRAND 


| 
i 


;CLEAR THE FLAGS PERTAINING TO THE & 


: S_IN 1,3 

sR4 CONTAINS ‘KEY’ 
3RS CONTAINS *CMND’ 
soa 1 ORV PRESENT? 
TYES 


; GENERATE A RANDOM NUMBER 
A_RANDOM DRIVE NUMBER 
; FROM THE AVAILABLE DRIVES 
;PUT LOW DIVIDEND ON STACK 
:CLERR His DIVIDEND AND PUSH 
ON_ STACK 
;PUSH DIVISOR ON ST rn 
G0 TO THE *DIVIDE’ SUBR our 
:DISCARD_THE REMAINDER. — IENT IS 
:NOW ON TOP OF THE STAC 
;MAKE SURE CORRECT MAPPING IS DONE 
;’GORVE’ CONTAINS RANDOM DRIVE NO. 
;TEST_IF_ TYPE F DRIVE 
:NOT IF POSITIVE 
;CLEAR THE FLAG BIT 
;000 OR EVEN DRIVE ADDRESS 


;MUST HAVE BEEN AN ODD ONE 
INSURE THAT ODDS WHAT WE WANT 


;MUST HAVE BEEN AN EVEN ONE 
:NO GOOD = TRY AGAIN 


;GENERATE A RANDOM NUMBER 


;PUT LOW DIVIDEND ON STACK 
‘CLEAR Rs Ohi DIVIDEND AND PUSH 


;1T 

‘Bush OtvISoR ON STACK 

:G0 TO THE "DIVIDE’ SUBROUTINE 

; DISCARD THE REMAINDER. QUOTIENT IS 


t MAKE SURE CORRECT FUNCTION IS SELCTO 


oa 


; THE FUNCTION THAT CAN BE PERFORMED 
;GENERATE A RANDOM NUMBER 


' SES 0083 














3129 


= 
8 





WOQIG) G0GIG) GIGIG) G0 GIG) GIGI GI I GIG) GIG) GI GIO) GI G9 6) G0) GIGI) G) GI GIG) GGG) 6) GIG) OG) GO) GIO) OD) GG) GI GIG) (GID 


ee ae ae he ae ae bs be Os be 0 be 2 8 be be hn be ho be be be bh be Be bn ho be be be he be Bebe Be Be he Fhe Be 
PR CBSA A VIN STS VEHCO S SOR LOW S55 SKHAESEASSESKRAERY 
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01S030 


01 
01 


18s 
015050 
0150Se 


| 


OeS&4é 


101005 
012737 


005001 
000404 


005037 
Ole701 
023727 
002003 
01e701 
000431 


168700 


060001 


028180 


001504 
000313 


001504 


025650 


001504 
177777 
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001504 


001510 


025650 
001506 


000306 





4$: 


Ss: 
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RSCYLL 

COR eegpye SSP? ieLEoR Hig es & BND busi 

po ee al as ca crete SUBROUTINE 

TST (SP)+ BRD. THE SPenAINQER. R. QUOTIENT Is 
MOV (SP)+, QCYL NaH oN ogi2) 

CMP 8313, OCYL 

Bee Be :’QCYL’ CONTAINS RANDOM CYLINDER NO. 


MOV RSCYLH, -(SP) fu OW DIV ON STACK 
rege) LEAR HIGH DIVIDE 


CLR HIGH ND AND PuSH 

MOV CMAP, -(SP) D ON ST 

ie Fee asbiv 5 Rare a8 Ae ROUTINE 

T ARD THE REMA INQER QUOTIENT 1s 

So TOP OF THE S 

MOV (SP)+, QSEC PTHEEN 0-13/8) 

CHP #14, Q5EC 

DEC QSEC :'QSEC’ CONTAINS RANDOM SEC # 

CHP #77777,RSCYLH ;SELECT SURFACE # RANDOMLY 


MOV #81T4, GSUR 

iRI CON CONTAINS THE MAXM WORD COUNT BASED ON 
VAIL +o pik SPACE. 

Re CONTAINS THE MAXM WORD COUNT BASED ON 

;AVAILABLE MEMORY SPACE. 


CLR R1 
BR 7$ 
R QSUR ;SURFACE 0 
NOV #14,R1 14 SECTORS ON SUR 0 


THAT tag S AVAILABLE THE MAXIMUM pare THAT CAN 
;ASSUMING THAT ENOUGH ME PO sO? AND THE 


TS LACE IS SOs ge 
LB ReaDen re tee aa, Lats OF ua Sa pt ae A A 
7$: 
8s: 


Fares Sans > ay 2 
0_BE_TRANSFERRED re 


;1S THE RANDOM CYL # GREATER THAN 306? 


i TDRD COUNT iS SEL ETED, ) PROPERLY 
tore aK H WORD COUN 


T BASED ON 
‘AVAILABLE E DISK 


CMP QCYL, #306 
8GE 

MOV #177777,R1 
BR els 


MOV $14.R SECTORS AVAILABLE ON 
cue Geet Ro COMPUTE. OF SELECTED 











____ CO o_o 





sl a | eae 
DOZRKHF.P11 


015214 


bias 


II LILO LILI UII UII LIED LD 

BELRRESRESSERR 
e9299290000 
Regios copies 


Sones 


Sen 
aN 8 


000 000 00 oO 
w 


—r— be 
rm © 


nent ane Ke i 


72288 8 


foruro rorororuronone 
WONTON WhO 


ROSS NN SANS 
: 


FOFUFOFOFOrorurore 
SBOVRARLS 





pene 


O10346 
004737 
005726 





006312 


025120 
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001514 


218: 


108: 


11S: 
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#312,R3 


(SP)+, QBUSAD 
gBusab 
BASEBA, QBUSAD 


MAXBA, R3 
@BUSAD, R3 


RS, Re 


R2,R1 
11¢ 


R1,R3 


#177777, ~(SP) 
-(SP) 


R3,-(SP) 
PC‘ aeSDIV 
(SP)+ 





;COMPUTE # OF SECTORS pvesb ERLE 
: BEYOND rH 1 THe AL 


: PUT HE MULT PLICAND ON THE STAC 
; CALL rhe MuLTety ® SUT ThE 


; DISREGARD _T i8.8 
GET THE “SOF THE PRODUCT 
: COMPUTE’ +0 Ga. oF SECTORS VAILABLE 


;;PUT THE MULTIPLER ON THE STACK 
T THE PUL TIPL CARD ON THE STACK 


LSB’S OF THE PRODUCT 


-GET THE 
; COMPUTE ‘+OTAL # OF WORDS-SPACE 
‘AVAILABLE ON DISK FROM THE SELECTED 


iCYL® 

;COMPUTE MAXM WORD COUNT BASED ON 
AVAILABLE MEMORY SPACE. 

;GENERATE RANDOM NUMBER 


;FORM THE RANDOM BUS-ADDRESS 


— GENERATED pus-c00ness WITHOUT 


i SELECT SMALLER OF THE TWO 


5 HR SON Med hate I Be non 
* WORD COUNT ) 


iB CONTAINS THE MAXM WORD COUNT 
POSSIBLE. COMPUTE THE WORD COUNT 
;MAPPING FACTOR FROM THIS. 


;PUT LOW DIVIDEND ON STACK 
LEAR HIGH DIVIDEND AND PUSH 
TT ON STACK 


SUBROUTINE 
‘DISCARD THE REMAINDER. QUOTIENT IS 
;NOW ON TOP OF THE STACK 





TTPLER a. THE hy 





—— 


10? 


MAINDEC-11-DZRKH-F MACYIL 27(1006) 04-OCT-76 13:29 PAGE 73 
DZRKHF.P11 22-SEP-76 08:57 EXERCISER PROGRAM SEG 0086 
3241 015372 o0S216 INC (SP) 
see 015374 012637 001832 MOV (SP)4,WCMAP © ;WORD COUNT MAPPING FACTOR 
can 915490 904737 G2SSOs JSR PC, SRAND ;GENERATE A RANDOM NUMBER 
15404 O2se56 RSWCL 
7 Ol o2sbe0 Noy -RSHCH,~(SP) BUT LOH DIVIDEND. ON STACK 
=: Hen ane eS ee IE EF 
S414 013 5 NOY CMAP = (SP) ‘Bush DIVISOR ON STAC 
= tee Bee a ca et te ae 
| 353 ROW ON TOP OF THE STACK 
3254 O1S42 012637 001516 NOY (SP)+,QMRCNT —;"MRCNT" CONTAINS T 
| 355 ;HORD COUNT THAT WILL BE USED 
015432 005737 O01SIé TST — QWRCNT {MARE SURE. THE WORD COUNT TS 
3257 015436 003004 BGT ‘128 :NOT 0 
3258 O15440 005437 001516 NEG QWRCNT :TAKE CARE OF ZERO AND NEG NMBRS 
3253 015444 005237 001516 INC. QWRCNT 
3260 015450 113700 001502 128:  MOVB  QORV,RO 
3261 015454 000241 CLC 
| Bebe O1545_ 006000 RO 
| B63 15460 906000 ROR RO sPOSITION THE DRIVE NUMBER IN 
| 3e64 015462 06000 ROR RO :BITS 15,14, 13 
3265 015464 006000 ROR RO 
| 3266 O15466 913701 oo1s04 MOV.  QCYL, RI 
(387 01547e 000301 SWAB ORI 
3268 O15474 00241 CLC 
| 3289 015478 O0e001 ROR RL sPOSITION THE CYLINDER NUMBER 
«=P bleeoe Boeoor ROR RI 
| 3272 15504 050100 SIS RI, RO 
3273 O1SS0E 062700 go1si0 BIS QSEC,RO :RO CONTAINS THE COMPLETE DISK 
_ ‘Be74 015512 053700 001506 BIS  QSUR; RO SS 
| 3e7s 015516 o10005 MOV RO, (AS) + {INSERT RKDA_IN THE PARAMETER TABLE 
oe : (FOR THE 8 COMMANDS) 
3505 {WHICH FUNCTION? 
| 327e :0-READ CHECK, 1-READ, 2-WRITE 
| 3878 015520 022737 op0001 oD1512 cH 81 ,GFNC 
«Reed «O15526 ool4ie 7 SREAD 
| 328i 015530 003014 Bor 14S, SREAD_CHECK 
3282 015532 012725 on0002 1S: MOV tWRITE FUNCTION CODE 
| ‘3ee3 015536 025767 Oes660 077777 CMP =o RSWchea?7777 «SHOULD. WRITE CHECK BE DONE 
 -Bee4 915544 idiol0 BHI 15 ZAFTER THE WRIT 
| ees o16S4e 052714 oooo4o BIS BITS, (RA) SET FLAG IN KEY TO INDICATE 
—«-Beee :THAT WRITE CHECK SHOULD BE 
«~Be :DONE FOLLOWING THE WRITE 
3262 O15552 000405 BR 15S 
«SS Qisse4 912725 00004 25: MOV #4, (RS)+ ;READ FUNCTION CODE 
| 3631 15560 00402 BR 15$ 
«(+3263 oisse2 012725 ooo012 14$: MOV #12, (RS)+ ;READ CHECK FUNCTION CODE 
—«- SE oussee o1a7is vise 158: MOV GURCNT, (RS) INSERT THE WORD COUNT (RKWC) 
32% 015572 005405 NEG  (R5)+ :(2°S COMPLEMENT 





rn A 


MAINDEC-11-DZRKH-F MACYil 27(1006) 


OZRKHF P11 


22-SEP-76 08:S7 
0137eS 001514 


OS37e4 001502 
020427 001326 


BabIS? o1vese 
Beery TPP o1seae 
000207 


000000 


04-OCT-76 13:29 PAGE 74 


EXERCISER PROGRAM 


MOV = = QBUSAD, (RS) + ; INSERT THE BUS ADDRESS — FOR 


noes ae) Au 
CMP RY, sKEY+20 


75 
hic NL ;IF NOT, GO BACK AND GENERATE 
: : THE NEXT COMMAND AND THE 
178 NC ODDE VN Pern ye MS NEN’ 1) EVEN ope 
: : / 
é Mis SOE opDEVN KEEP RON 900/E 
RTS pe tALL 8 COMMANDS HAVE BEEN 
GENERATED IN THE TASK-GUEUE 
ODDEVN: 0 














JO? 


SEG 0087 


THIS COMMAND IN THE PAR 








MAINDEC-11-DZRKH-F 
Pil 22-SEP-76 08:57 


Peete awaR TERS SOO Se Bas 


OZRKHF . 
3313 
3314 
ota 
Et 015634 004737 
i§ 15640 010146 
toe 1e701 
Rie tris 
015660 012601 
01S&6e 004737 
aigere S061 


MACY11 27(1006) 


015714 
traiae 
Abi882 
015676 


aibeee 


001426 
001462 


KO? 


04-OCT-76 13:29 PAGE 75 
EXERCISER PROGRAM 


;ENTER THIS CODE IF SW 9 HAS BEEN 


N SET AND LOOPING HAS TO BE DONE ON ERROR 


;CONTROL IS TRANFERRED TO THIS, ON RETURN FROM THE ERROR HANDLES *SERROR’. 


EXCRLUP: JSR PC, CLRERR 


MOV oe 
MOV 


1S: ets pig 


MOV (SP)+,R1 
ISR PC, CLAFLGS 


MOV go TaeK , SP 
JMP QMNGER 


;CLRELGS 


:THIS ROUTINE CLEARS OUT THE VARIOUS FLAGS USED FOR THE 8 COMMANDS IN THE QUEUE. 
;CLEAR THE 8 BUSY FLAGS ‘ 
;ALL DONE? 

NO 


_ MOV cay »RO 


CLR (RO)+ 

CMP RO, #QSCNT+2 

BNE 1 . 
RTS PC 


;WAIT FOR OTHER DRIVES TO SET DONE 
:THEN ISSUE A CONTROL RESET 


;CLEAR OUT THE COMMAND-KEYS 


; CLEAR out oY RES COMMANDS IN Pea pane 
cae iit he a oo 


aC eet Re PT de, P0E TO 


SEG 0CEes 





maINOEC=11-DZRKH-£ 


> 
et 
: 
Q 
e 
a 
Q 
E 
378 
3361 
cea 
3356 


bt at at 
Owe 


% 
Ny 


sacaa 


# 


am re 


B Bee & os 


ie 
Rue? Bee 


MACY11 27( 1006) 
7& 08:57 


163302 
001426 


584156 163250 


001472 
022130 


13:29 PAGE 7& 


; CLRERR 
Spee IS see 





: mie EERE Bac 
TEES Pee ht Barve’ ATER ABOVE. t cg ty THAT HOVE BEEN 


A CONTROL RESET IS ISSUED TO CLEAR THE HARD 


;SAVE R4, RY ON THE STACK 


oy THIS DRIVE SUSY SEEKING? 


sRAW/S SET? 
KEEP 


:WAIT FOR R/W/S RDY 
fe ING, SERIAL Be er AND OnIVE & FOR 


AR TALS aR ath tpevone OU 


fiers Senta Batvees On 8 
N OCCURED ON THIS DRIVE 


ORM THE ADDRESS OF THE 
KEY WHICH MADE THIS DRIVE 


;CLEAR HIGH PRIORITY BIT, IF SET 
:MAKE THIS DRIVE FREE, AVAILABLE 


sAOORESS THE Next POSSIBLE DRIVE 
s INCREMENT COUN 
;ALL DONE 


;SAVE INFO ABOUT THE PAST & PRESENT COMAND 


;RESTORE R4Y,RS 
;RETURN 


Z 
R 


— i i re 


MO? 


-11-O2RKH-F MACY11 27(1006) 04-OCT-76 13:29 PAGE 77 
Pil 22-SEP-76 08:57 EXERCISER PROGRAM SEG 0090 


ne bane 1S ENE SP val ve Fein. ee neces Fee oon oN  tuar 
RIT IS ve ees OUTINE © TO WAIT FOR THE 
Site Pat | THAT Have 3: Wen Cth re oe DRIY ES GIVE 
TURN 
CLASIN'S Ha Aer Phe 1S WRANSPERRES BACK us THE MAIN 


summery & 


pi epee aoe ath oe ees wy ee RRERR watt FOR ot SPER DRIVE To 0 COMPLETE 
So SEEKS ( I THEY ARE 

OL 13777 091516 163130 MOV QURCHT JRKDA monet fe Sr Again THe EROR. 

161 737 de20222 JSR C, DRCMIND VE INFO aout ‘ie PAST & PRESENT COMAND 
016104 012777 OO00iS 163110 MOV AC aRKCS $B DRIVE RESET ON THE 
aio STU VEoreD IN mon 

ll O16112 104417 CON. RDY 
sig 18114 go1472 CLR TIMER 
3413 016120 190 163070 ‘1S: BIT RWS, IRKDS ;WAIT FOR R/W/S RDY TO SET 
3414 016126 001015 BNE 2s 
aie aa Oo5e 001472 INC TIMER 

§ Pi se Boiss 022130 af be RGHSOR ;GET RKCS, ER, DS, DA AND DRIVE # FOR 
sig :TYPING SERIAL DRIVE # 
3419 O16142 104004 ERROR 4 !R/W/S RDY DID NOT SET AFTER 
ea 16144 001000 163044 BIT _#SIN, IRKDS ‘senae fiseaine Dames cee 

6152 ate BEQ : 

3423 016154 004737 0O22130 PC, RGYSDR GET RKCS, ER, DS, DA AND DRIVE # FOR 
3424 | ‘TYPING SERIAL ORIVE 2 
3425 O161E0 104016 ERROR 16 '@ DRIVE RESET WAS DONE ON THIS DRIVE 
3426 :TO CLEAR 'SIN’, BUT "SIN’ DID NOT GET 
se? : CLEARED 
2129 161 004737 o20246 2s: JSR PC, CRCMND :SA N60 ABOUT THIS COMMAND 

4 16166 104416 CON. RESET :D0 IT TO CLEAR OUT MASK F/FS 
3431 016170 600207 RTS PC tEXIT T FROM THIS ROUTINE 


NO? 


nal ee io sagt 27( 1006) O4-OCT-76 13:29 PAGE 78 
OZRKHF 22-SEP-76 08 EXERCISER PROGRAM 


AE AS ROUT PRR Sn GY Ea 
Pigakes 
ones RETURN HERE IF SIN COUNT (MAXIMUM ALLOWABLE) 


----- RETURS HERE IF TOTAL SIN COUNT LESS THAN MAXIMUM 
GR HOR BNR ase "SP SNH, PRR Ag PAT FOR Eo 
0160 eat po0002 ae (SP) ‘eb lust PC FOR RETURN TO THE RIGHT POINT 


016214 000137 016220 i$: JMP OSELCT 35 ERRORS OCCURRED, GO DESELECT 


ETERS Y 


ave OF TED AT THE TIME OF ENTRY RL CONTAINS THE | 


‘SES 909i 


MBINOES -ji Se taba d 


DIRKHE FLL 





2461 


seeunnte 


4 
~ 


SAREE RRR SRE REN dal ital Pala 


5 
Seer 


ty 
patetarel 


OOOOOVOOOVOOOOVOOOO00OD 
Os b= 0 b= = B+ b= Ob = OO Oe Oe 


RE NORE RNS coma 


Oooooo 

ee ee er et ar as 

Be toh 
eet ar 
NO crm. 


016330 


ee ee oe ee re we ee er eee 


MACY) 1 27.1008) O4-0CT pais 2:58 PRGE 7 
22-SEP-7— 08:5! £ SER iseR” SRAM 
sOSELCT 
: HIS ROUTINE IS ENTERED WHEN @ DRIVE IS TO GE SEE 2°E9 7 nN” 
30U SELECTION IST). BE THE FART EF ON THA 
: HAS ACHED @ MAX nu , CONTAI iM 
: THAT IS T C The Dh Is CTED IF 1 Sri bay court 
:FOR THAT es ACHES MAXIMUM ALLOWABLE 2.IF @ teat 
s4IKE DRI , DRIVE LOW OCCURS. 3. IF WPS oere SET, OR ORY 
j } DSELCT: MOV sPDR-1, 
igoes af - MOV SRUPRS' Re ;NUMBER OF DRIVES BEING TESTED 
001253 800 SPOR-1.Re :FOR END OF T 
1S: I ze sLOCATE T VE AT 
ll MOVB (RS) R3 :DESEL CTED) IN TABLE 
177690 Bic 5 RB HE F FLAG 
l C R3,R1 THIS THE ONE 
BE 3 pe Ha nies NG AVAILABLE DRIVES 
ee ao is, NOT FO! aN TABLE, EXIT 
11} es MOVE 128 ei Beye He ie ve N 
001264 3 CMP RS, 8POR+10 iTS THIS ORI THE Flas? ENTRY IN TABLE? 
iene eS 
i MOV RY 
INC sIF NOT, T me THIS. RIVE 2 From 
38: MOV8 (RS)+, (R4)¢ . i 
001263 CMP Beta Ree T oe eR TRIES [= 
001374 BNE 38 ’ 
10SO&5 177777 4$: CLAB 3s = 1 (RS) ;CLEAR LAST ENTRY IN TABLE 
THE OR LECTED 
sense Entce MESUNT EXCEEDED THE 
104401 002336 TYPE MSG1$ Mop ey 
010146 MOV Ri, -(SP) PUSH RIVE R ON STACK 
104403 ia : TYPE THE TERMINAL 
051 VTE 
000 .BYTE 
004737 O26664 SR PC, SNOTYP :99 Ty IAL NO OF THE DRIVE, 
005237 o01264 DEC DRV-RS :DECREMENT THE TOTAL NUMBER OF 
004737 o22ce4 ISR PC, CHDPRS DRIVES IF ANY DRIVES PRESENT 
:IF NONE GOT TO END OF PASS, SEOP 
pene 177777 MOV 8177777,-(SP) PUT LOW DIVIDEND ON STACK 
CLR (SP sCLEAR HI HIGH IVIDEND AND PUSH 
0 001264 MOV DRYPRS, -(SP) :}t.9 ofviss ON STACK 
arte 26 JSR PC aashly :GO TO THE "DIVIDE’ SUBROUTINE 
00572 757 (SP)+ :DISCARO THE RERA NOER. QUOTIENT IS 
012637 o01s20 MOV (SP) +, DRMAP :T0 BE USED FOR BENERGTING RANDOM 


ORIVE NUMBERS. 


' SES O02 





cr oe < _ em a ee we —. ee ee ee ee 


CO8 













' 
} 
| MAINOEC-11-D2RKH-F MACYLI 2711006) 04-OCT-76 13:29 PAGE 80 
|“ DZRKMF PIL" 22-SEP-7 08:57 EXERCISER PROGRAM . $86 00 
16360 012704 001 MOV sKEY, RY “DESELECT THE C os 
| 16364 ils és: MOV (RS) ‘ re Q° CORRESPOND ING 
| 23 ine 705 177770 es tl as URS jt CTED ORivE 

1 i l 7° 
HH 1637 052714 104000 B15  BJ04000,(R4) —_ ; INDICATE COMMAND DESELECTED 
| 13 S164 7S: +7 (R4)6 (AND COMPLETED) 

14 Sis 001326 CMP 2 sKEY#20,R4 

i$ Slewio 001365 BNE Os S 

3:5 1412 1 es TSTB OR :°F* TYPE DRIVE ? 
zie C1615 grt LIS NO = JUST EXI 

#5 16416 000001 i 82.8 ODD OR EVEN DRIVE NUMBER 
| 32 eves 1 90000: rc a1, 
| 3633 bigs 701 900001 as: BIS sé], RI 
| wey O16436 13? Olee20 i0$ a3 ostLtr DROP CORRESPONDING DRIVE 
| 3536 
| 3637 o1ee42 000137 010536 118: IMP BEGNEX G0 RESTART EXERSISOR PART OF TEST 


B a ee 





C-1L1-DZRKH-F 
Pll 


MACYI1 27( 1006) 


e2-SEP-76 08:5: 


Oo00N0d OBOOOOMI00000 


e-- >< 0 -- ® Ct ee ee ee ee ee ee en ee ee ed 


Ob GREER BEteeeeaaad 


ono fo Oo nNoOoOD oO oO 
=F = eee ee 
fie kG HES Gf 
3c Be OE - 


162516 


162500 


le2462 


Le2444 


162424 


EXERCISER 


; CHKORV 
BS MES og 


; NOTE 
; #ONLY 


;CALL: 


38: 


4§: 


Ss: 


tHe 


JSR 


wecee RETURN 


13:29 PAGE 81 
PROGRAM 


PC, CHKDRV 


FOR FAT 
THESE E 


IN THE ERROR MESSAGE WHERE RKDA I 
DRIVE NUMBER (NOT CYLINDER, SUFACE 


; BRORS etue THE 
SRONTAING THE DRIVE NUMBER TO BE CHECKED. 


HERE IF ANY FATAL ERROR OCC 


wo--- RETURN HERE IF THERE WAS NO FATAL 


SRKDA, - (SP) 
R1,-(SP) 


bd , ORKDS 
PC, RGYSOR 
34 

S$ 


#12040, JRKOS 
S$ 


(SP)+, JRKDA 
&e, (SP) 


sp 


DSELCT 





HA 
SPRINTED OUT, IT GIVES 
] 


sSAVE RK 

;GET DRIVE 8 

;ADDRESS THE DRIVE TO BE CHECKED 
:DRIVE POWER LOW? 

;GET RKCS, ER, DS, DA AND DRIVE s 
"FOR TYPING SERIAL NUMBER 

:DRIVE POWER LO, #NOTE 1 ABOVE 

: DRIVE 

:GET RKCS, ER, DS, DA AND DRIVE 8 
FOR TYPING SERIAL NUMBER 

‘DRIVE UNSAFE BIT IS SET 

s #NOTE 1 ABOVE 

WRITE PROTECT SET? 

;GET RKCS, ER, DS, DA AND DRIVE « 
:FOR TYPING RIAL NUMBER 

sHPS SET, H CK WRTE PROTECT SWTCH ON DRIVE 
4 

:DR apy LEAR? 

;GET RKCS, ER, DS, DA AND DRIVE # 
FOR TYPING Ben pay NUMBER 

:DRIVE READY CLEAR, SHOULD BE SET 
:#NOTE 1 ABOVE 

;ANY ERROR? 


TRESTORE RKDA 
PADIUST RETURN ADDRESS 





lone me ne ee 


MBINDEC$11-DZEKH-F MACYL1 27(1008) 04-OCT-76 
DIRKHF.P1i ©» -22-SEP-7— 08:57 EXERCISER 


2581 
ae PRET be Se Pa oe bad “states TEE rx 


! : 
PROGRAM SES 0095 


; OLUT: OI K ADDRESS (DRIVE #8, CYL 8, SEC 8, SUR #8) - SHINUM 
& 5), COMPUEIENT OF Te weer Seth 
Laat TE TE BR eas wr 
igs12 104414 GENBUF: SAVREG 
Hes tess om Se Ga rg cari 
ne eR BRR ms mons 
tees BoSTS> | Deeees Con ROT GET LO RANDOM SEED 
i ie Pa toe 
b1bbSE pps0g3 CLR RP ig WAY Wey THAT Each & BOR 
i 3 ;BEGINS WITH RANDGR DATA 
Bigees Besos POSURE es: oY SaOO RS ;SECTOR ROORESS AS THE RRROON 
BEEE ‘Pres 


o10s24 : MOV RS, (R4)+ *FIRST WORD OF EVERY SECTOR 1s 
= A WORD COUNT oF eS *S COMP) INDICATING # 
S ACTUALLY COOTER NO THAT SECTOR 


PRP ERER A NMRU MON sistent eam RIA Se ae mA Pio ee mR eae 


016670 ooS205 INC et PALL DONE? 

016672 001427 BEG Bs 

016674 004737 oesso4 4$: ISR PC, SRAND ;GENERATE DATA WORDS 
016700 Desebe RSOTL 

0 & bie? 017012 MOV #2, RCNT 

16710 O61 025664 617014 MOV RSOTH, 

O1E716 Bhaaae BR i 

p16? 005337 oO17012 cs: DEC RENT 

Cie 1 Sesbbe 017014 MOV RSDTL, RNUM 

167 c7 6$: TST 

016740 001767 BEQ 

Ole74e 0] 017014 MOV RNUM, (RY) + ;FILL THE BUFFER. DON’T USE 
O1E746 O0S205 INC RS ;ALL DONE? 

016750 001351 BNE 43 NO 

016752 005703 eS: TST R3 ;ANY MORE DATA WORDS (FOR 
016754 O014le BEG 10$ sREST OF THE SECTORS)? 
C1E75E O10246 MOV R2,-(SP) , 

O167E0 O42716 177760 BIC #177760, (SP) ; (ABSOLUTE DISK ADDRESS & ITS 





rarer £2 


! 


MACYLI 27(1006) 
08:57 


006013 


04-OCT-76 13:29 PAGE 83 
EXERCISER PROGRAM 
CMP #13, (SP)¢ 
BNE 3$ 
ADD #4,F2 
9s: INC Re 
ihe 1 
108: RESREG 64. RS 
aye 
RCNT: 0 
RNUM: 9 


08 





;COMPLEMENT) TO USE FOR 
:GENERRTING DATA WORDS ’ 
XT BLOCK 


;HI RANDOM SEED 


. 
, 
7 
, 


;RESTORE REGISTERS 
T RETURN 


RODRESS 


: macy 27(1006) 04-OCT-76 13:29 PAGE 
| 7 08:5 EXERCISER PRO SEQ 0097 
;DAT 
+ ORIS ROUTINE IS ENTERED WHEN THE DATA THAT WAS READ FROM THE DISK IS TO 
354 3 CHECKED AT THE TIME OF ENTRY R3 CONTAINS THE OF 36! OF POINTER TO 
THE § OF THE PARAMETER LIST (RKCS,DA,WC,BA). DATA IS CHECKED IN 
3654 :BLOCKS OF 1 SECTOR ( WORDS) . EACH BLOCK IS GE TED NG THE SECTOR 
3655 [ADDRESS (AND ITS C ) AS RANDOM SEEDS. WHEN A DTA MISCOMPARISON 
# SOCCURS THE BUS ADDRESS, EXPECTED AND RECEIVED DATA ARE REPORTED 
3658 917016 104414 DATCHK: SAVREG SAVE RO-RS 
3658 017020 016303 002032 MOV PCMND(R3),R3 T ADDRESS OF THE PARAMETER 
3661 017024 016304 99900 Hoy sp Re ie WORD COUNT (2°S COMP) 
ee RAEN HIE my fase HEY vaCHBD 
| 3665 017036 O1014E MOV 1,-(SP) 
3666 17040 004737 022076 ISR Ba" ’ CROTLF ;ROTATE BITS 15,14,13 TO 
| 3668 1704 012602 nov (SP)+,R2 ‘POP’ OFF DRIVE # FROM THE STACK 
§} 001712 Sis SDATER, Re sFORM THE ADDRESS OF DATA ERROR COUNT 
%71 :FOR THIS DRIVE 
3672 017054 012737 177764 O01S40 MOV #-14, ECOUNT 
| E36, Bie bee ee oreq o25662 NOY eSDIA ROOT EF USED FOR CHEEKING. Sata 
275 sei ete Sseres COM 
| 3677 017100 022704 177400 18: CMP #-400,R4 sDATA IS CHECKED IN 1 SECTOR 
| 3678 017104 003003 BGT *BLOCKS. EACH erin 5 GENERATED 
| 3678 617106 010403 MOV RY, RB sUSING. THAT SECTOR RobRE SS 
| 380 017110 905004 CLR RY AS T 
3681 017112 so0404 BR 
| 3683 017114 062704 oD0400 2s: ADD #400, R4 
+3684 017120 O1e702 177400 MOV 8-400, R3 
| 3685 017124 012500 2S: MOV (RS)+"RO :SAVE THE FIRST WORD OF THE SECTOR. 
=«- 3686 FIRST WORD OF EVERY SECTOR IS A COUNT 
| 3687 (2'S COMP) INDICATING # OF WORDS ACTUALY 
| 3¢ee SWRITTEN IN THAT SE oR. 
| 2683 017126 cos200 INC RO syn RENENT T OF # OF WORDS (WRITEN) 
| 3691 017130 oos203 INC R3 INCRMENT COUNT OF DATA WORDS TO BE CHECKED 
$32 017132 001465 BEQ 14$ : , IF DONE 
3694 017134 004737 Oesso4 4$: ISR PC, SRAND eal RANDOM DATA WORD 
«3695 017140 dOesebe RSDTL 
369% 17142 012737 oo000e o17012 MOV #2, RCNT 
3697 017150 013737 Oe5664 017014 MOV RSOTH, RNUM 
| 3696 017156 Of BR 10$ 
, 3699 O17160 37 017012 QS: DEC RCNT 
3700 017164 001763 BEQ af 
| 3701 O17166 013737 025662 017014 MOV RSDTL, RNUM 
3702 017174 005737 017014 10$: TST RNUM 
| 2703 017200 001767 BEQ 9g 
| 3705 017202 005700 TST RO 





MAINDEC=11-DZRKH-F macyz1 27( 1006) 
DZRKHF.P11 22-SEP-76 08:5 
3706 017204 001401 
3707 017206 005200 
355 10 923715 017014 
sie BISSIS BeidT 
3711 
3712 017216 005700 
13 O1 
14 017 
1S 017, i4 
3716 017226 005037 001164 
at 017232 000403 
19 017234 013737 017014 001164 
$725 b17e42 Soseis 
sel izes Qos737 001540 
| Be Re Bee gig 
37eS Ol7eb2 010137 001170 
3726 017266 004737 022134 
37e7 017272 104023 
| is 
| 3730 
| 3731 
| ‘3732 
3733 
| 3734 017274 005237 01540 
gra 017300 pos7es 
| oe Oi 005203 
| 3738 017304 001313 
| wa 
3740 017306 o4 
| 374i 017310 001427 
«Ere 
3743 017212 O10146 
3744 
3745 017314 O42716 177760 
| 3746 017320 022726 000013 
| ~H2 017385 oo100e 
| MG 17326 Of o00004 
3750 017332 oos201 
3751 017224 032777 oD0002 i6iése 
Be BE ses 
| 
4 O17 
«Bes B13 BTOIS? ooseey 
«3756 017356 010137 o25662 
_-3757 «(017362 005137 
«752 «017366 o00644 
| 3759 017370 104415 
| 3760 017372 000207 





04-0 


HOS 


T-76 13:29 PAGE 8S 


EXERCISER PROGRAM 


Ss: 


65: 
7$: 


14S: 


1S$: 


16S: 


173: 


BEG 
INC 


S$ 
RO 

RNUM, (RS) sEXPCTD WORD = RECVD WORD? 

8$ ; YES 

RO 

&$ 

(RS) 

3 

$REG1 

7§ 

RNUM, SREG1 ;SAVE EXPCTD DATA WORD 

(Re) s INCRIINT DATA EROR COUNT FOR THIS DRVE 
ECOUNT :$ TORE ONLY, 12 (DEC) DATA ERRORS 

5 Eve ERROR BUS ADDRESS 


;SAVE ERROR DATA WORD 


l, 
PC, GTSORV ;SAVE ORIVE #, FOR TYPING SERIAL & 
23 sparta (COMBAR SON) arg ON DOING 
; FROM DISK NORMALLY >: le DATA 
;ERRORS WILL BE REPORTED. THROUGH 
;CHECKING WILL BE me 


: WANT MORE, 
;WHATEVER # OF 


ECOUNT 
(RS)+ 
R3 sDONE CHECKING? 
4 
RY Y MORE SECTOR BLOCKS 

17$ it CHECK’ IF NOT, EXIT 

R1,-(SP) 

;GET THE NEW RPNDOM SEEDS 
#177760 (SP) (ABSOLUTE DISK RODRESS & ITS COMPLEMENT) 
3, (SP3+ 19 USE FOR GENERATING DATA WORDS 

tg" :OF THE NEXT BLOCK 

#4, R1 
Rl 

#CSE, IRKER ;IF THERE WAS A CSE THEN CHECK 

16$ :ONLY THOSE SECTORS THAT WERE READ 
R1, RKDA 

1, RSDTH 
Rd ,RSOTL 
ee 
;RESTORE RO-RS 

PC 


SEG 0098 
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3761 
3762 


eRBoS 


w 
BPPPPP? FF 
KZVBI28R FS 


PeRePERER Croco cr Re SPS PRRSS iat is 


Deere 

3600 o7a67 

sebe BosONs 
3803 
‘304 

(3605 000401 


Sone 


PERUNR SRR RT ROBNSt ena 


aw 
zn 
si 
Se 
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eee he ae he be ae bs 0 he beet he be 
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me eee eee 
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OOOO0& 
003776 


000004 
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000004 
172516 


000004 


017432 
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~SETTL ROUTINE TO SIZE MEMORY 
ggg RRA Rene ones orien emoren 


: BAL 
se B R PC, $SIZE 
:SSLSTAD WILL CONT aN N: 
ul H KTIL Karty -- LAST VIRTUAL ADDRESS OF THE LAST SANK 
uit ! ie ata ae P -- LAST gFAESQLUTE ADDRESS OF AVAILABLE MEMORY 
cane IS the PENT KEY 
ITU? were & SETUP. eS re Ch 
ems se roe re OPTION 
aa ie ROUTINE 
»~ (SP) #3 TACK 
= rae ) bSRVE By R1 ON ON THe STACK 
i 5’ (SP) OVE RGON THE STACK 
MOV JBERRVEC, - tt Save PRE Ba ot OR VECTOR PS & PC 
MOV BERRVECS2,-(SP)°” 
MOV St RO -SAVE THE STACK POINTER 
:;SET THE ERRVEC PS 10 THE PRESENT PS 
TRAP :;PUSH OLD PSW AND PC ON STACK 
SP) ere oi jSAVE THE PSW IN a#ERRVEC+2 
STB C)+" $3Per r ROR AENAGENENT? 


$KT11: .WORD Stee 

#SKTNEX, QWERRVEC’ ; 
#SRO 

sien, SKT11 


iiSet TO USE MEMORY MANAGEMENT 


4 NO 

3 FOR TIMEOUT 
YOU THERE? 

Hisar: KT11 KEY 


MOV 
T 
BPL 
MOV 
gis 
CLR (SP) : INITIALIZE FOR “PAR™ Rr LOADING 
Nov ak TPR ~~ ic at OPAR. EIGHT “POR. *S” 
1$: Nov e106 AES -40(R2) ee Pa, Sa 
MOV (SP), (R2)+ 
ADD #200' ( TESTE Pane oe “PAR” 
SOB R3, 1$ >;LOOP UNTIL ALL EIGHT ARE LOADED 
MOV #177600, ~(R2) ii SETUP Mi FOR Vv g 
Gy CMBECAWERRVEC © TICRTCH TIMEOUT IE_NO SRO” 
MOV ae6, fae Huet see T hone 
BR POP-11 HAS A SR3 R REGISTER 
25 CMP 7p 4, (SP)+ HICLEAN 0 OFF a.% STACK--NO SR3 
INC RO’ 


#S 
MOV #SKTOUT DNERRVEC ; 


' SET FOR TIME OUT 
4$: Is! a#142776 ;: TRAP ON NON-EX- 


;;MAKE A 1K STEP 


CMP SaKTPOR?, (Re) :ELAST ONE? 
BHI 4§ :NO--TRY IT 
SKTOUT: MOV (Re), Re :GET LAST BANK+1 
CLR aeSRO :: TURN OFF MEMORY MANAGEMENT 


$SIZEXx 
#100000,$KT11 ;;KT11 NON-EXISTENT 





~ $€3 0099 


—-- = eee ee 


eee ee eee 
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RSPUR SSRI E sat aaa 


012737 





017632 000004 
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SCORE: mt!  aehertennte 3;SET FOR TIMEOUT 


Sci) x ae 


v RO, SP He ORE tue STACK 
MOV (SP )+, @NERRVEC#2 :;RESTORE ERROR VECTOR 
ee OCMMMEENE SE 
MOV (SP)+,R3 ; sRESTORE R3 
MOY CSpaa° RY tT RERTORE Ai 
Roe bee 


;;CONTAINS THE LAST ADDRESS 
;;CONTAINS THE LAST BANK © 


SEG 0190 


MAINDEC-11-DZRKH-F 
22-SEP-76 08:57 


DZRKHF P11 
3838 


PREABU CANAAN MUnEe ae Sees bats 
: 


3873 020000 004 


KO8 
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he Hee DIGHT ParsicL AOORESS. Re CONTAINS VIRTUAL AOERESS Ar’ THE TIME 


;TYPE OUT IS INHIBITED IF SW 13 IS SET. 
TYPDBO: Bit 


020000 161230 


es: 


ABE 3 RSYS 38a" 


& 885 


=z 
ate} 


JSR 


13, 3SWR ; INHIBIT TYPEOQUT? 
;YES 


eek 

BF cROTL sO SaTe BITS 18 14.19 INTO 2.1.0 
SSeS FORM Rata +8°de" es 
R3 FOR KIPAR 


KIPARO(R3) ,RY ;GET THE BASE PAGE ADDRESS FROM 
TROTATE LEFT 6 TIMES (MULTIPLY 


gers 81-10 SCT. 10 Ger TH 


RS :R3 CONTAINS MSB-2 BITS 
R2,-(SP) ;STRIP OFF TOP 3 BITS FROM VA & 
5 (SP)  ;GET THE OFFSET INSIDE THE PAGE 
R3 * Cues ace By CONTAIN 2 COWER 16 BITS 
sROORESS Ra OP 2 Bis 
RY, SREGO sae LOWER 1 16 BITS OF PA 
Re EG1 VE TOP 3 ITS OF PA 
GO, -(SP) POINTE TO. Pa oN wargck 
Pe. a#$DB20 ONVERT aL 3 18 B 
TO var Tag} ice h BERS 0 ON RETURN 
st WER RT THE FIRST ASCIZ CHARACTERS 
PC, 28SUPRS TAL & DIGIT 
seh lire on “TRE oct 
(SP)+,RS 
(SP)+: ste 
(SP)+; =i] 
PC 


SES 9101 


AAS nee, NEON OMARION ORE Up ia eee amare 
if 


Puen een very t at 


BBO DBD 


ed eee ee ee ee ee et eee ee 


WONMUN fw 


SESS RCR 


LDabsBed 
ZOR= 


3935 


Oo 
we 


e- es 
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161176 


00$777 
480355 021740 
000207 


Bee 


020277 161170 


1e1i8e 


55006 Basues 161132 
Bsntre ak 001162 
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Tals BIT ! WAS SET. IF IT WAS RETURN TO 
ee mas 25 Lolifne Fue seh att) PE hot tHe ERR hone Fon ert 
CHKCS: TST Px ;BIT 18 SET? 
.GTYRG ies GET RKCS, ER 
RTS RETURN TO THE ERROR OaESSaGE 
Huis Rourine CHECKS IF RKDA INCREMENTED CORRECTLY. fF NOT, RETURN IS 1{foe 
$10 ERR oR SSAGE FOLLOWING THE JSR CALL. IF YES, RETURN IS MADE T 
2AT F OVER THe ERROR ENTRY, meee CONTAINS THE EXPECTED RKDA. 
CHKDA: CMP R2, IRKDA :DID RKDA INCREMENT CORRECTLY? 
Si COARET T EXPCTD RK 
MOY SRKDAS SREGI t Ros Recve™ 
RTS PC et TO THE ERROR MESSAGE 
ae Routine CHECKS If RKBA INCREMENTED CORRECTLY. IF NOT, RETURN IS MADE 
OLLOWING THE JSR CALL. IF YES, RETURN IS MADE TO 
Kap Over Tne ERROR ENTRY FP Sirane THE WORD COUNT (# OF WORDS TRANSFERRED) 
‘Ry CONTAINS THE BUS ADDRE RE THE TRANSFER STARTED. 
CHKBA: CLC 
ROL R3 FORM THE EXPCTD BUS ADDRESS 
ADD R3,R4 
CLe 
ROR R3 
CMP R4, IRKBA ;DID RKBA INCREMENT CORRECTLY? 
BEQ COMRET : 
MOV R4, SREGO sGET iprero RKBA 
RTS PC RETURN TO THE EROR MESAGE 
ere MOV JRKBA, SREGL GET RKBA RECVD 
: THIS ROUTINE | CHECKS THAT RKBA OVERFLOWED AND MEX BIT WAS SETIN RKCS (BIT 4) 
IF RKBA OVERFLOWED CORRECTLY, THE RETURN ADDRESS IS ADJUSTED TO SKIP THE 
: ERROR MESSAGE ON RETURN. 
CHKMEX: MOV @RKCS, -( SP) ;GET 
BIC #177717, (SP) :GET AES Sor TS 4,5 


CMP #BIT4. (SP)+ :CHECK BIT 4 SET? 
BEQ COMRET :Y 

JSR PC, GTYRG :SAVE RKCS,ER,DS,DA 
RTS PC : RETURN 


: 


# 


ee eee 


SSEee 


ge 


a 


Ql 
77 


777 
1011 
904737 


nO ABT RE * 


000100 
021740 


161016 
021740 


0000Ce 


M08 


NE TOS 


ahr KS IF RK RF CTLY AFT @ TRANSFER 
eh £3 hot, ee 1g face Yo tee g THe ERROR RESEACE. FF 94°8 020, Re TSRN Is 
CHKC: | TST RKC sRKUC OVERFLOWED” 

abe : 


M WC, SREG! 
Bre Bc ;RETURN TO THE EROR MESAGE 


; CHKRWS 
THIS ROUTI ugtEcKs. Tf Rews R/W/S RDY SIT IN feos JS SE oat IF it 1s NOT. SET RETURN 
BB ones Is IS ADJUSTED TO SKIP Pee OLE THE ERROR MESSAGE ON RE tua’ 
CHKRWS: BIT #RWS, IRKDS sRWS ROY SET? 

Exe sone YES 

ISR PC, GTHRG GET RKCS, ER 

RTS PC :RETURN TO THE PB aOR” MESSAGE 
; CHKCRDY 
: THIS ROUTINE CHECKS IF CONTROL READY BIT IN RKCS IS SET. IF IT IS NOT, 
:RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE JSR CALL. IF IT IS, 
RETURN ADDRESS IS ADJUSTED TO SKIP OVER THE ERROR MESSAGE. 
CHKCRDY: a aRKC é sCONTROL READY SET? 

ISR PC, GTHRG GET RKCS, ER, DS 

RTS pe ‘RETURN TO THE Pe aR OH MESAGE 
COMRET: 00 #2, (SP) ;ADJUST RETURN ADDRESS TO SKIP OVER MESAGE 


NO8 
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—t hee KEEPS & HISTORY OF THE C S THAT ARE BEING EXECUTED 


ss Pa A A Gs ne 


NTRY DEPENDING ON THE Se CORMAN BEING PRESENTLY INITIATED: 


Ree OOS EE PREY RO BIT D Te SEE  DNETIATED. DRIVE @ IS SAVED 


;CRCMND - ENTERED WHEN A CONTROL RESET IS BEING INITIATED. SIT 14 OF 
:"PRSCMND’ IS SET. 


ccna & 


POSCMND - ENTERED WHEN A POSITIONING SEEK IS BEING INITIATED. BITS 9-2 

CONTAIN ys DRIVE NUMBER ON WHICH THE POSITIONING SEEK WAS DONE. ALSO 
| 
} 


;IN ALL ABOVE CASES BIT iS OF *PRSCMND’ IS SET. 


3 
3990 NCHND = ENTER WHEN A COMMEND OTHER THAN ANY ONE OF THE ABOVE 15 BEING 
eH iM yor Fr Fi REP wey (BASE=KEY) IS SAVED IN BITS 0-3 OF "PSRCMND’. 

;IT_ SHO D THAT CONTENT PUSHED INTO 'PSTFNC’ 
$gec tho COED, "er on PUTTING HED RoOuT eRe BeesENT CORNER COMMAND IN *PRSFNC’. 
$339 ;RO CONTRINS ADDRESS OF THE COMMAND KEY, AT THE TIME OF ENTRY. 
23¢ ass 020222 012737 100400 001512 DRCMND: MOV eB 1T15+B178, QFNC 
4000 Ba ga i077 MOV eRKDA (SP) ;SAVE DRIVE 
400 34 ? 2076 JSR PC CROTLE 
3002 052637 O01512 BIS (SP) +, GF ee 
1053 Oene44 900424 =p 
4005 020246 012737 140000 O01S12 CRCMND: MOV #8IT1S+BIT14, GFNC ‘ 

#908 O2e0es4 s00420 SR P2 
4008 020256 011037 001512 POSCMND: MOV (RO), QFNC 

| 4 0202 37 «1 901512 BIC #177770, QFNC ;GET DRIVE NO. 
4010 O02 737 1 0151 BIS #8171S+B1T7, OFNC 

| 4011 76 000407 BF P2 

' 4013 020300 oo1s12 FNCMND: CLR QFNC 

ee Sor ee say, : 

abe Beosie Oesea? Dolls BIS ce 
4018 020316 013737 OO1462 901464 Pe: MOV PRSFNC, PSTFNC 

| 4019 020324 913737 OO1S12 OOl46e . MOV QFNC, PRSFNC 

| 4020 020332 O02 RTS PC 


eo. 


sgeeenenenansnsatasan cantatas esaseeaccantts 





RB 
No 


oe £0 


io eas be 


R eS 


nae 020454 


e716 177770 


1 002032 
09000e 


ee BS 


104402 
sg) os 


ee ee 2 ee — 


ihe vial ‘tars a tapes BN ERROR Se 


T TION 
cb ako su iz 

RO, -( 

Ri: ( 

SPRSFNC RO 

MH 

RO) 

3% sREAD, READ CHECK, WRITE, WRITE CHECK, SEEK 

\ 

a sPOSITIONING (SEEK) 

1714, (RO) 
1 ;CONTROL RESET 


Xe 


678 3; TYPE ASCIZ STR 
;;GET OVER THE Bectz 


bes iiUET OVER foe aact2 


/POSITIONING DRIVE 7 
(RO), -(SP) 


8177770, (SP)  — ; TYPE DRIVE NO. 
“3 
pean RL) RI ;G0 GO TYPE QUT THE FUNCTION 
‘gb R4 ‘ 
Fc wn T TR 
, bE OVER THE AScTZ 
(15><12> DAe/ 
(R1),-(SP) ;TYPE OUT DISK ADDRESS 
og te ee Tue nectz 





— = LE TT Te 


| cos 
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ROUTINE 313 MEMORY SE3 0106 
i238: -ASCIZ + Bre 
000006 ser a B(RL),-(SP) 
020600 T 75 3; TYPE ASCIZ STRING 
Sf aug 3;GE7 OVER THE & 

pics -ASCIZ +’ We 

ooooo4 MOV 4(R1),<(SP) 


ete: 
TST (RO)¢ 
age 1198 MHL 

T , MHS 
206 T MHe 


ss: Free . } 
MOV te) BL 


ney bah )*. 


seaanesasacaaiasaaeanas 2 


001213 
S250 041516 
5 





| 4106 MHI: eASCIZ <15>«12>/FUNCTION / 
ates lize 1117 Me: -ASCIZ / ERROR / 
4103 000 MHS: ASCIZ /AT/ 
| iis ti OS1i17 MH4: ASCIZ /PRIOR TOv 
eee 3 -EVEN 


er ae + ee eee 


D093 
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| OZRKHF.P11 © 22-SEP-76 te: “e ROUTINE TO SIZE MEMORY S53 0107 
4107 


athe Ihe ay. ENTPY BY CONTAINS THE 0 Lig Nyse nyt nae THE, SATpSIIC 
i oo Hirnrasat EBEAYE” Ra CONTEDNG The FUNCTION tate: 
| Re, 


41] 
413 920714 210046 STATSTC: HOV “18 BUSH RO, R3 ONTO THE 
atte B5o738 $s Bisset MOV fe. ; 

Sits peoess Soesee oF ORG “DR 

43 l es BEO 34 ye fe THE € OFFSET FOR THE 
335 1 nee Ri" i HORDS ea 

4} aa BNE 1s 

4] 16500 900004 2s MOV 4(RS) RO :GET WORD COUNT (RKWC) FROM 
118 oe0744 905400 NEG RO THE PARAMETER TABLE 

4] 160250 — TST IRKCS oat ERROR DURING THE XFER” 
1 is oe aa: of 

4125 020754 O1 10244 MoV DRKWC, RI :GET THE # OF WORDS T 

4] E5760 005 NEG R SNERE ACTUALLY CRO E ERED 

I i SUB .RO 

4133 022704 00002 38: CMP 82, R4 WRITE FUNCTION? 

4] peeree 001005 BNE 5§ 

4136 020772 1732 4$ ADD RO, NWRTL(R2) HEARED, CURETED “eager 
4137 020776 ates 1734 ; ADC NWATH (RE) :NOTE IT’S 2-WORD COUNT LO, HI 
4 621002 SO0404 BR &$ 

4140 021004 ocB0062 001772 cS: ADD RO, NROL (R2) ;ADO THE # OF WORDS READ 
4l4 NOTE THAT WRT CHK, 

sie ; CHK ALSO" CONS- 
414 SIDERED TO BE "READ’ 

18 021010 OOSS62 001774 ADC NRDH(R2) :CARRY OVER TO THE MI WORD 
4146 921014 gt 6S: MoV (SP)+,R3 POP R3,R2,RO FROM THE STACK 
aise 551558 &: A 36g 

4149 tes acted RTS pe 





MRINDEC-11-D2RKH-F 
DZRKHF.P11  22-SEP-7& Of 
41 
4] 
4] 
4] 1 
2 is 
4} l 12761 
4] 
ce ES Ge 
Sis Bsiove 64 
4160 O210S2 O10°046 
4] } i 
“eo ae 
4} } 
4164 021060 104401 
wee oes 
Ais 
4168 O21 1 
3153 O81 Boes03 
cif Bt? l 
| 4173 021102 104401 
4174 O21106 O10446 
| 4175 21110 1 
| wt eit 4 
«aide Bei] 
s75 atk pose 
| diel GBI 5 
| sie Bsttss BBir3e 
| 4184 Q21146 006302 
| wiles 
| BS Buse poss 
| sie ites [é8Sce 
4190 021162 1 
| 4191 Oeli6e O1ee4e 
| 413 021172 
| 4194 021174 10440 
| ¥iés peta74 Teede 
4196 021204 O42716 
41g? Oelelo 104405 
| 4169 e121 04401 
«4200 «~Oelele O1ee46 
4201 Ogleze iO44Os 
| -a55S op) 
| 
| 4204 betes! 1 
4205 021230 104401 
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: TaT 
tere ROUTINE REPORTS ERROR STATISTICS AND DATA-TRANSFER STATISTICS. 


PcTa: T 
REPSTA: Oy ORVERE. RO 
MOV POR, Ri 


18: TYPE SRF 
MO tRi)e 
BIC 81? {77740 Re 
Roy Re, -(SP3 
ea 3 
TYPE | BLNKS3 
CLR RY 
MOV R2,R3 
BEG 3$ 
2s: ADD #4,R4 
DEC R3 
BNE 2s 
TYPE BLNKS! 
an: an 
ISR PC, $0B2D 
SR PC’ SUPRS 
gee) 
ee 
J5R PC; 
ASL R2 
TYPE BLNKS1 
MOV ESECN(R2),-(SP) 
TYPOS 
TYPE BLNKS! 
MOV WCECN(R2) ,-(SP) 
TYPDS 
TYPE abies. 
Vv ER(R2),-( SP) 
ts #100000,(5P) § ;DONT TYPE A NEGATIVE NO. 
TYPDS 
TYPE BLNKS1 
MOV HECN( RE), -(SP) 
TYPOS 
DEC ; sEINISHED WITH THE DRIVES ? 
TYPE | MSG2EA REST OF SUMMARY MESSAGE 





SES 0189 


s 


NPEGUT 
os 


; Eyes PRESENT’ TABLE ADDRES 
Ss 
;CONVERT TO A WORD TABLE INDEX 


Gi BBE 
Be podeae Z 
. SE ero 
pedesot hes : 
a Pa e A. 
ee i a ol ef 
wfeets oe 9 ge & 
oe WES aot S&S Bvee 
Be : 
eo eetdeaFentgts® Fok gE guar 
by 
agg 
8 
~ ines o 2 in 
geak £6 & EE 
iB sre ssey By 
eee Eee 
Hy 
y SSISSSSSAIISIS AIH SINS SASH 
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09 


SES 0110 


ITING FOR THE 


rN? TB Nven ae me PRECISION 
att T an shige ora JT 
‘THis aint beeps TRACK OF HOW LONG THE CONTROLLER HAS BEEN BUSY AFTER 
“AC WAS INITIATED. THE CONTROLLER FINISH WHATEVER IT 18 DOING 
: BEF ORE THIS COUNT EXPIRES. IF IT DOES NOT, THERE IS AN ERROR CONDITION AND 
: S SO . 
;QSCNT 
:THIS COU COUNT NT 1S INITIALIZED VERY TI asitt 8 COMMANDS BRE GE RATED. ote £2 COUNT 
is Se fh £ Ws ROU reTRES. PTO och ROR CGROITION 
Seon BF ee COUNT nA BEEN xt i ito TTF ERROR cok 
:DOES NOT GET CAUGHT IN AN INDEFINITE LOOP, BECAUSE OF AN ERROR cMOTTiON 
STATUS: CLR <{ PRIORITY AND WAIT FOR INT 
Hoy sp) PERN ier RTI 
;NOTE THAT THE INTERRUPTS ARE BLL OWED ONLY 
:AT BIN PLACES IN THE PROGRAM, BECALISE 
:1T HAKES TR OUBLESHOOTING OF ERLIURES EASY. 
: OTHER €S WHERE INTERRUPTS ARE ALLOWED 
310 TAKE PLACE: 
:* CHEAFN’ FIRST INTERRUPT AFTER ISSUING 
=A SEEK FUNCT] 
1S: INC QSCNT 
BES QEROR 
TSTB = RKCS 
BMI CNOBSY 
CLR CICNT 
MOV #-17,CICNT1 
CBSY: STB  INTFLG ;FOR A NON-SEEK COMAND: 
j INTELG- BIT 7 IS SET, BITS [-3 CONTAIN 
OFFSET TO THE COMMAND KEY (FROM KEY), 
iFOR WHICH THIS INTERUPT IS EXPC 
WHEN T OCCURS 8 "INTHND’ IS 
ENTERED  NTELEY 1S CLEARED. 
BEQ SEXIT 
NC CICNT 
CBSY 
INC CICNTL 
BNE CBSY: 
s TIMED OUT WHILE WAITING FOR INT 
:ONE OF THE COMMANDS DID NOT Ih ERRUP 
NIEROR: MOVB =‘ INTFLG,RO 
BIC $177 77760,RO 
MOV RO,R 
ADD aeYR RO 
MOV (RO) * SREGY 
BIC #177770, SREGH 
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013737 001172 001250 


a ee ee ee te + 


1S7402 


SHEE stilt = 


1$: TYPE 


es: JSR 


CNOBSY: 


SEXIT: 
RTI 
RTIPC7: JMP 


SREG4, SRDRV 


#8IT1S+BIT11, (RO) 
SEXIT 


QSCNT 
PC, GTYRG 
4) 


spas, 


SCRLF 
{RO)+,-(SP) 
, BLNKS3 
~(SP) 
(R1)+, (SP) 


3 
0 


R2 

1$ 

PC, CLRERR 
BEGNEX 

RY 

RY 


“a 
PPRLVL,-(SP) 


&RTIPC?, -(SP) 


QMNGER 


;GET ORIVE 8, FOR TYPING SERIAL 8 
;PRINT *ORVE #8 DION’T INTRUPT AFTER’ 


SP tener ee com Erte 
STNDICATE HAT FUNCTION IS ABORTED 


;REESTABLISH COUNT 


3C KEYS WAS NOT 
coer 05 *KEY’ (-8) 
ABOUT THE STATUS OF T 


; INHIBIT TYPEOUT? 
; YES 


— 
um 
—_— 

Oo 
— 

im 

ng 
a 


sTYPE OUT CONTENTS OF ALL KEYS 
;KEY-KEY8 


;TYPE OUT CONTENTS OF ALL BUSY FLAGS 
;BUSY-BUSY7 


; DONE? 

;NO 

;MAKE SURE THERE IS NO HEAD MOVEMENT ON 
;ANY DRIVE & THEN DO CONTROL RESET 

;G0, BAK AND CONTINUE 


sRETURN FOR RTI #e#eeee4242 


SES O1i1 
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Se eae ite ae nate hee nee ee ne ea ham hae ae be ea ee eae a) 


SIIISSSSISISIISIIIy 


ae Se no eee 


rT77T77777 779777 77779777797 


187266 TYPFN 


1 27( 1006) aura 48 oft 
TYPFN 
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13:29 PAGE 100 


ROUTINE TO SIZE MEMORY 


;GTYRG 
;GET CONTENTS OF RKCS, RKER, RKDS, RKDAR 


ake: SRY 
Mov 
RTS 


GETINF: JSR 


Vv 
RTS 


aa 


PC, GT3RG 
RO,-(SP) 
Re’ -(5P) 
+2,R0 
aR VRL 
#1 BE 
R2,-( RO} 
Ri 
Bt 
Ri. Re 
8177776 Re 
7 (ROS 
ae 
#177400, Re 
Re, ~(RO} 
#177770,R1 
R1,-(RO) 
(SP)+,Re 
(SP)+'RI 
(SP)+;R0 
PC 


a 


KO9 





MRINOEC- 11-DZRKH-F MACYLL 27(1006) O4-OCT-76 13:29 PAGE 101 

DZRKHF.P11 22-SEP-76 08:57 ROUTINE TO SIZE MEMORY SEG O114 
4410 sCROTLE 
4411 eNO mi? :PUSH NO. TO BE ROTATED ON STACK 
nts ims nas aft achat atts 1s 5 i422 12 OF A WORD INTO BITS 2, 1, 0. THE 
matt THE BITS OF T TED WOPD ARE CLEARE 
44] 
44] CROTLF: BI #17777, 2(SP) 
wuie 58108 ; ie 
4419 022106 O06166 ROL 2(SP) 
Sie e UE 
“ t t Ror Sep) 
4423 O2cl26 RTS C 
4424 
4425 
wigs sRGNSDRV 
us T re Fae sory RKDS, RKER. ,RKCS, RKDA. THEN 
44 ves it ats VE NUMBER ENR 4 
= 022130 004737 921740 Hae ,GTHRG eT AN Shoat 
4432 
mH ORY ce BC. GTSDRY 
4435 : THIS ROUTINE EXTRACTS THE DRIVE # FROM RKDA (BITS 15,14,12) AND SAVES 
“4 :IT IN “SRORV” (BITS 0,1,2) 
4438 022134 017746 157070 GTSDRV: MOV JRKDA, -(SP) ;GET BITS 15,14,13 FROM RKDA 
4439 022140 004737 O220 JSR PC, CROTLF 

022144 912637 O01 MOV (SP) +, SRORV ;SAVE THE DRIVE # 

4441 O22150 07 RTS pe 


i 
48 


biRhicee swans saates 


3 
sy 


¥ 


~ 
# 
- 
™N 


o—-Tie- 
Oo 
- 


(Dee 
9 
arigares: 
forename £ 


LOS 


13:29 PAGE 102 
DRV.RESET - DRIVE RESET ROUTINE 


MACYI1 27(1006) O4-OCT-76 
08:57 


SBTTL ORV.RESET = DRIVE RESET ROUTINE 
Hara ROY spas ot set our A CERTAIN TIME OF. DOING DRIVE RESET 


ies On. AST cue rset 
i 132533 MOV oe dar ee 


CON. RDY 
000100 157014 1S: Bit ean 
177760 MOV #-20,-(SP) 

INC (SP) 

S (SP)+ 
22262 * INC ' MOUT 
020000 156706 ei 15413, 354 
pees Tee eae 

T MSGl2 

MOV tsP) -(SP) 
cocog2 SUB. #2, (SP) 


= 
e 
= 
on 
~ 
4 


018 R/W/S RDY SET? 
NO, WAIT FOR R/W/S 


;INHIBIT TYPEOUT? 
: TIME R/W/S RDY DID NOT SET 
t REPORT ERROR 


MAI 7 | ee 


aE 


sss UAILAIAS 
on 


22-SEP-76 oe: co 


Yii 27(1006) 


‘ 


So 78 156730 
14 
1567 


156576 


MO9 
CON RESET’ - AbNTROL RESET ROUTINE 


.SBTTL CON.RESET - CONTROL RESET ROUTINE 
;CON. RESET 
;CONTROL RESET ROUTINE 


na READY ROUTINE 


eh Ray: Pe MOV $},gRKcs 


rste gRKCS ;DID CONTROL ROY SET? 
MOV #-90,-(SP) ive T FOR CNTRL ROY 
INC (SP) 
BNE : 
TST (SP)+ 
a i 
Be $5413, , aS ; INHIBIT TYPEOUT? 
MSGl2 :CNTRL RDY DID NOT SET, REPORT ERROP 
MOV tSP). -(SP) 
SUB #2, (SP) 
TYPOC 
TYPE S$ ;;TYPE ASCIZ STRING 
oF 4§ “GET OVER THE RSCIZ 
igs: "ASCIZ <15)<12>/CONTROLLER NOT READY -  RKCS=/ 
MOV DRKCS, -(SP) 
TYPOC 
2s: RTI 


' SEO 0116 


te 


ae 


i 






Te 271 1006} 
7& OS 


ooo0c0 


0002352 


PAGE | 
TYPE MESSAGE ROUTINE (S13) 
-SBTTL TYPMSG - TYPE MESSAGE ROUTINE (SwW12) 
abe NE IS USED FOR MESSAGE TYPEOUTS. IF SW 13 IS SET THE TYPEOUT 


;POINTER TO THE ASCII MESSAGE STRING 
1 al TYPEOUT” 
POINTER TO ASCII STRING 


;ADJUST RETURN ADDRESS TO SKIP OVER POINTER 





dhdvih 


Pier er 
“NOUN £to 


dubih 


SoM NER MU ENT 


dihihddhi 
DAE 


NOES eae MACYI1 27(1006) O4-OCT-76 13:29 19S 
Pi 22-SEP-7— 09:57" KWSRVE - KWILL CLOCK Rize ROUTINE - SES 0118 


has ne ne seRvices THe T e ites gROst + Peon She hai: coeff ae LINE CLOCK 
iy SECOND) “ie S COMPLEMENT) 
Ce =n eg ftece 


= CONT Taine FEN 
o0se37 001560 sends INC KMCOUNT SCOUNT 60 CPS 
1401 Beis : OVERFLOWED? 
77704 OOLISED 18: MOV _—se- 60. .KWCOUNT SET COUNT 
ieee tke uae ra fos 
BEG isi  OVERFLOWED? 
RTI i aun 
Pe OOISSE 28: MOV _—=- 8-80. ,KWSEC CONDS™ COUNT 
i Kun ‘See MINUTES 
o01ss4 Boy BeBO..KWMIN RESET “SRENUTES™ COUNT 
6 OE opal t a : COUNT 
3%: AT? RETURN 





WAT IME 
sROUTINE PROVIDES SOME WAITING TIME. 


Ge2S36 01 OzeS&9 WATIME: MOV 2$,-(SP) ; COUNTER VALUE 
S4e OeeSte i$: NC ; COUNT 
i 1 ;HANG_IN THERE UNTIL COUNT WRAPS AROUND 
NC (SP) COUNT AGAIN 
1 360 7 yf LO NTeS 
4 bie (SP )¢ RES HE STACK INTER 
Oe2S60 1777 : - WORD 77730 i VALUE FOR APPROX 15 SEC DELAY 
OeeSte ad 53: - WORD : ;"MINOR® LOOP COUNTER 










PP eeeeecteeae Bese te eee BP EB ock Et ite rourine 


: US PACHTER APNE SEEN Ok Sa ESTs on 
| 2 ae Seite Fos 
| 


- Hvis hide rt 2 tes 15" Is DONE TO Keer THE NUMBER 


| ae neces" Seed 001264 CHOPRS : pe DRVPRS 1 ns PRESENT” 


1 
45s ; RT P 
1$: TYRE 
wee; ISR bc 
Lh MOV ae 
410 3s SE 


. SBTTL 


acer, 


iS 
4565 
wees 
me 
4575 3 7 ll 
$4 eee: 
re es 13 ae act 
wees Gees 1 SENDCT: "BORD 
4583 w4 022634 SEOPCT 
| eS Bezeve 13700 one ScETH2: HOV 
BEQ 
| 38 1 SENDAO: GR 
| 4586 " NOP 
| oy aoa NOP 
So ES on om 
| E83 022670 pees SRTNAD: WORD 


a ee te ee 


L-DZRKH-F © MACY]1 2711008) 04-OCT-76 12:29 PAGE 107 
1 22-SEP-7e 08:87 ENC OF PASS ROUTINE 


4 INChEPENT Te Pree MEER (aPRaa) nnn 

pid THE ($PASS ) hie 
Bi Pirewesn , ri OGRAM AFTER 1 PASSES THRU THE PROGRAM 

2 GrnGeR 







END OF PASS ROUTINE 
gt NUMBER 


T JUMP 


E10 
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DZRKMF.P11 | 22-SEP-7& 08:57 Tiy INPUT ROLTINE 
53 .SETTL TTY INPUT ROUTINE 
at gs SSFSSSSSSSSELSSSSSSSSSSSSSSSSSSSSASSSSSASSSSESSSSSSSSSSSSSSSSSSS 
$ ; 'ENPBL LSB 
~Sss SeFTWARE Suit oH SESRELSSSSSESAESHSSSSSSASSSSFAASRELSAELSS SASS HSH 


ith xB ENTERED FROM The Se RHP HANOLER, AND WILL 
a ie He CHANGE in SOF TWARE Pattee REGISTER TRAP CALL 
jeune Te) elhei's Y F 


Oe267e 022737 000176 001140 i318 THE fee SELECTED? 
022700 IF 


asa E AS 


105777 1S6236 ae s5fKs :: CHAR RE?” 
| 106071 15$ 3 IF NO ’T WAIT AROUND 
10 il l MOVB og TKB,-(50) : vet CHAR 

| . + BIC #¢C177, (SP) ::STRIP- THE ASCII 
| 4610 CMP 87, (SP i+ ::IS IT A CONTROL G? 
| “bl § 3M, RE TO USER 

461 001134 900001 TOB, #1 3: RUNNING N AUTO-MODE? 
4613 i a : BRANCH 

4615 104401 023417 T ,SCNTLG 3; CONTROL-G (1G) 
| WBE peer ae 104401 SGTSWR: T hve ¢ RENT CONTENTS 
| 4617 O2e746 O] 00017€ MOV SWREG, -(SP) SAVE Suh=G FOR TYPEOUT 
418 pee7se l TYPOC G0 VER =ecTAL ASCIT(ALL DIGITS) 
| 461 104401 023425 TYPE SMNE ::PROMPT FOR NEW SW 
_ 4620 022760 OOs046 198 CLR “(SP) ::CLEAR COUNTER 

ad 022762 OO5O46 CLR -(5P) i THE Ne 
022764 105 156154 ? STB TKS CHAR THE 
| 4623 100375 BPL IF NOT oT AGAIN 
| 1624 

1774 156150 MOVB  aSTKB,-(SP) ::PI 

| ee BESS rE sassie 135250 BIC ace, (SP) tihace tr Starr ASCII 
| wees 

4630 022002 021627 ocDD0es 2g MP (SP), #25 $318 17 A CONTROL-U? 
| 463 922006 00100s SNE 10$ *BRANCH IF NOT 
16 104401 oP2412 TYPE SCNTLU :TYES ECHO CONTROL —U (tu) 
023014 062706 208 ADD ke. SP RE PREVIOUS INPUT 
424 600757 BR 19¢ LET'S TRY IT AGAIN 
ex 4 
/ 
| 4637 023022 o21627 jcDD015 10S CMP (SP), #15 iia IT A <CR>? 
es ee 000004 aot ey YES fo tT ue FIRST CHAR? 
we30 23059 Bolses BeOS i teach IF_YES 
«EAB GB30a9 Gessa, Boone [7 1g, | BO SER SSWR Ut RRUE NEP et 
| wea 55302 scant Spiers {a8 TYPE RLF i CHO <CR> 
4644 023054 123727 001135 oD0001 CMPS 43s SINTAG, #1 ;RE -ENABL TTY Kap INTERRUPTS? 
HENS 023062 O01 BNE 1 i ANCH IF NOT 
Hex bes064 oie2 900100 1S¢0S2 svn HOV #100, a$TKS + RE-ENABLE TTY KBD INTERRUPTS 
| 646 022074 004737 oe4aee2 i6$: JSR PC, $TYPEC ECHO CHAR 
«4648 «023100 G21627 O60060 CMP (SP), #60 :CHAR < Q? 








so See 11-D2RKH-F 
DZRKHF P11 


3 


rita 
we 


RO oe 
wae 


SS MAME ERMMGR SSS STS 


eS 
— 
Ww 


SERCH RRRRIRE RR ORRES 


u 


Core ooro—— 
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a 
ae 


ee 


ot = OC 
- - rear 
8 o- 
SFEK Fe 
on wr 


Bea 


1 


Re 
x} 
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000067 


000060 
000002 


000002 
177776 
001212 


023402 
Oe34le 


000004 
3 


F10 


gg Dh 13:29 PAGE 109 
TTY INPUT ROUTINE 


BLT 198s : sBRANCH IF YES 
Er (38), 867 ee 
#2 iF (SP)+ i TRIP- H fe Meer 
3 (SP) THIS THE FIRST CHAR 
+ at ah Sry PRESENT 
fet «By if ot yey 
178: INC 2(SP) ::KEEP COUNT OF CHAR 
gis -2(SP), (SP) ::SET IN NEW CHAR 
;;GET THE NEXT ONE 
18S: TYPE 43gues 2: TYPE ?<CR><LF> 
QF " ;; SIMULATE CONTROL -U 
.DSABL LSS 


Ho j steseeensneheesssescoennsresersgnsessntvescsnseesensavsnneneeds 
81 WS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE T 


i ROCHR ;;INPUT A SINGLE CHARACTER FROM THE TTY 
;# RETURN HERE ‘CHARACTER IS ON THE STACK 
;3 WITH PARITY BIT STRIPPED OFF 
SROCHR: MOV (SP), -(SP) +:PUSH DOWN THE PC 
MOV 4(SP} 2(SP) :;SAVE THE PS 
18: TSTB © aSTKS ::WAIT FOR 
BPL 1$ riRe i Ue 
Bree srccag?> atSP) r "51 F ANY 
OI Maha a 
Sons a ten Fok Ste THERE 
MOVB Serxe -(SP) 33GET cHORAS TER 
BIC 1C17? (SP) msi Terr 8 ASCII 
ENE , Hs NOT A ee aRS di 
BR is RESUME 
38: CMP 4(SP), #140 iTe SH UPPER CASE? 
: BLT 4g ::BRANCH IF YES 
ch H(SP), #17 Is ITA SPECIAL CHAR? 
BIC #40, 4(SP) : MAKE IT CASE 
4S: RTI BACK TO USER 


HEHEHE HEHE HEHEHE HEHE HEHEHE EEG HEHE UU GHEE EERE 
{ATHIS ROUTINE WILL INPUT A STRING FROM THE TTY 


:*CALL: 
+ RDOLIN ;;INPUT A STRING FROM THE T 

1 RETURN HERE :ADDRESS OF FIRST CHARGETER YWILL BE ON THE STACK 
i :: TERMINATOR WILL BE A BYTE OF ALL O'S 

SROLIN: MOV R3,-(SP) ;:SAVE R32 

1$: MOV #$TTYIN,R3 ::GET ADDRESS 


2s: CMP SSTTYINSS.,R3 ;:BUFFER FULL? 


SEG 0122 





MAINDEC-11-DZRKH-F MACYL1 27( 1006) Q4-06T 76. 6? 13: 23 PAGE 110 
HF.P11 22-SEP-76 08:57 TTY INPUT ROLTI 
wa pease TMT ESCA = 3B eeroro HARACTER FROM THE TTY 
a aE HESE nove (SP)+, (R3) ii GRr Shenae tek 
470 14 122713 000177 10S: ¢ #177, (83) 7:25 IT @ RUBOUT 
4710 } $3 F NOT 
47] 001212 4$ s 9 
47} 1 : : CLEAR THE BUFFER AND LOOP 
4713 111337 33 MOV (RS), 9S ::ECHO THE CHARACTER 
4715 l } T n 
sie ieeves 1 cre iS, (R34 Hea Poe RETURN 
4717 oS 105063 177777 CLR (83) + AR RETURN wee 15) 
478 3338 O40 1 harass TYPE § é invetope” A LINE FEED 
5334 BgseP8 1FeC MOY B+. ) ti8e ue a STACK AND PUT AODRESS OF THE 
4721 O23362 O1b6E6 ooooo2 MOV yisp}. Sisp) + FIRST ASCII CHARACTER ON IT 
at Bu G23402 000004 Mov aSTTVIN, 45) 
47 9S: .BYTE © + OE OAC +9" ASCII CHAR. TO TYPE 
47 3401 “BYTE 0 i TERR INA 
1728 023402 900010 TTYIN: . BLKE 8. sSRESERVE 8 8 % BYTES FOR TTY INPUT 
wy beats 052536. 005015 p09 aes -ASCIZ ABB psy a 
4758 Desue4 oshie Besey Senies SMCs’ cAecTs Gigs <izsoguR = *! 
4730 923432 0620075 000 
| 4731 923435 O40 oO47040 OS3SOS SMNEW: .ASCIZ / NEW = 
; O22442 036440 00040 
} 








MEIN 


C-31-D02RKH 
ll 






DZRKHF .F 22-SEP-7E 
4732 

S738 

47, 

47 

4737 

me 

ares 

4 

sve O2344E OLLE4E 
ie eee pees 
ioue Seance bibise 
4747 3462 bigeye 
tug oases bi2e00 
4750 0234 005001 
4 Des47e 905002 
a Ban ie 
4754 BS3cn8 006301 
4755 023502 006102 
oe Be 
4758 B53e4 1 
4759 O23Sle 102 
4760 022514 e716 
nie 2 022520 50} 
W7es Ge3e59 bo7ee 
we fee fh 
4766 023536 O01 
does feseue Bt 
4763 O22544 900002 
4770 SS4&é 000000 


pee 27( 1006) aeao tn ott 


: 


13:29 
AL NUMBER 


H10 
of tHe Try 


-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


s ; RERARSRAERSLAAAELELSALSLSL ELS SEALS LE SALLE EAE SERELAELEFELSSELESE 
TATHIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
!aCHANGE IT TO BINARY. 


es: MOVE 


AD 
3$: a 


SHIOCT: .WORD 


retires tet 


© BOR Obs 
OU o - OBO 
— ee ~ ww a | 
+++Tme ¥- 


yt AN OCTAL NUMBER 
33 ORDER BITS ARE ON TOP OF THE STACK 
;;HIGH ORDER BITS ARE IN SHIOCT 


;;PROVIDE SPACE FOR THE 
3; INPUT NUMBER 


; PICKUP THIS CHARACTER 
;;IF ZERO OUT 
33 #2 
33*4 

33%8 

;;STRIP THE ASCII JUNK 
+ $ ADD IN THIS DIGIT 
::CLEAN TERMINATOR FROM STACK 
33 THE RESULT 


;;POP STACK INTO Re 
;;POP STACK ne Ri 
3;POP STACK INTO RO 


; {HIGH ORDER BITS GO HERE 





Bes T Eat. 


ish ea 


Fate 
BS 


4825 
4826 


00140 


oe 


aoe 
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o00c04 090002 


023716 


000012 
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13:29 
READ A DECIMAL NUMBER 


110 


ll2 
ROM THE TTY 


-SBTTL READ A DECIMAL NUMBER FROM THE TTY 
jtatgtesaeetanesevensestenerssescessseeesnssessaceessssentaeates, 
ASCII) NUMBER FROM 


see eb a Bi 


Te N ek 


( 
sede us ele eta? ett STE 


TERMINA pall 2" mz 


ee TES Ee RE ad RANGE OF THE INPUT NUMBE 


18: Nee 


2s: MOVB 


BGT 


ae 


DD=z 
DAS 
cr< 


BEQ 
4§: MOV 


Bees oEaS 


S$: 


iS RETURN HERE 


Ce 
8 


'w- 
wes 
Fa) 


Sar 


aa 
za 8 


#tC7777, (SP) 


BORRRADAAH -~AORDOG ry 


Ww 
vu 


;;READ A DECI NUMBER 
;;NUMBER IS ON TOP OF THE STACK 


pe 


: SIGN SET POSITIVE 


fae ni ety we TwPeD 
Helou hi THIS CHA oT EHARACTER 


NOS MEETS 


;;D0N’T LET NUMBER GET TO BIG 
ee IF NUMBER WOULD OVERFLOW 


; i Save FOR LATER 


OP 
i GHECK IF NUMBER IS NEG 
is YES--NEGATE ne NUMBER 
RESULT 


3;POP STACK INTO R1 
: ;POP STACK INTO RO 
; RETURN 


;;CLEAN PARTIAL NUMBER FROM STACK 
;;SET A TERMINATOR 


- SEG 0125 
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 DZRKHF.P11 22-SEP-76 08:57 READ A DECIMAL NUMBER FROM Me TTY 


wees Grice bboads : $: hoe Bi ECTS GOES _HERE 
wesc feare8 Aooseg OO BR 18 iEtRY ASRIN 
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DZRKHF.P11 22-SEP-76 08:5 CONVERT BINARY TO DECTRAL eNO TYPE ROUTINE SEQ 0127 
4831 .SB7TL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
H s SRESSRALSSSSSRESSRESLSASLRSRASELERAA SERA LARS LERARSLAEAAZAASLE LESS 
4 :&THIS ROUTINE IS USED TO CHANGE A 1g-B1T INARY NUMBER TO A S-DIGIT 
; s#S1GNED DECIR ITIVE OR NEGATIVE A SPACE AR A HINUS SEGN WIL, GE TYPED 
E33 +SEE ORE te lke ot Brg oF HE NUMBER. LEADING ZEROS WILL ALWAYS BE 
4838 : #REPLE LACED W 
weaa ie MOV is, T THE BINARY NUMBER ON THE STACK 
ey oH: TYPDS +00 TO THE ROUTINE 
i $TYPDS 
wee pest ee 010046 MOV RO, -(SP) ;;PUSH RO ON STACK 
4845 023730 O10146 MOV Ri; -(S5P) *:PUSH R1 ON STACK 
4e46 bes? O1De4t MOV Re; -(5P) : ON STACK 
4e48 023736 DIDENE a at te UEH RE ON STARK 
eta age o20200 MOV #20200, -(SP) :3SE BAN SHITeH AND SIGN 
1 MOV 20(SP); i3GET THE I PUT NUN 
deep B535e9 ae rid tIMAKE THE Y NUMBER POS 
4853 023754 112766 0005S 000001 = nove #’-,1(SP) s MAKE THE ; 1 NUMBER NEG. 
ugec pes7 85 12703 024142 V #$0BLK,R3 TUP THE SN FPUt BoiNreR 
4856 023770 112723 6 MOVB 8”, (R3)4 :tSET THE FIRST CHARACTER TO & BLANK 
4857 023774 O0S00e2 2$ CLR Re 33CL D NUMBER 
4858 023776 016001 024132 MOV SDTBL(RO) RI GET THE CONSTANT 
4859 24002 160105 33 SUB Ri, ; FORM THIS BCD DIGIT 
4860 O24004 O02e402 BLT 4§ I 
4861 O24006 905202 INC R2 :: INCREASE THE BCD DIGIT BY 1 
wees Patt Be010¢ 4 eR a RS ;ADD BACK THE CONSTAN 
4264 eat aa aot Re’ t CHECK IF BC serra 
4865 16 001002 BNE c§ HROUGH IF 0 
4 105716 TSTB s«(SP*) ::STILL DOING LEADING 0°S? 
4BE O22 100407 BMI 7§ ::BR IF YES m 
4868 024 106316 23 ASLB = (SP) : 
4e78 peupsS izes 00001 177777 aSvE Tsp) icra tees ese? THE sicN 
71 aac beseps Boobeo 6S: BIS #’0, Re ::MAKE THE BCD DIGIT ASCII 
4872 Oe4042 OSe702 O00040 7§: BIS ::MAKE IT A SPACE IF NOT ALREADY A DIGIT 
4873 Oe4O46 110223 MOVB R2 thS)4 ::PUT THIS CHARACTER IN THE OUTPUT BUFFER 
4874 024050 005720 TST (0)+ >: JUST INCREMENTING 
4875 os2 000010 CMP RO, #10 ::CHECK THE TABLE INDEX 
4876 056 BLT 2s" *:G0 DO THE NEXT DIGI 
4877 O24060 o03002 BGT 8 *:GO TO EXIT 
4878 O24062 010502 MOV RS,Re $3GET THE L LSD oc 
4879 024064 000764 BR 6$ GO CHANGE SCII 
4880 O2e4066 105726 QS: TSTB = (SP) re THE LSD THE FIRST NON-ZERO? 
4 be4070 1 BPL 9$ ::BR IF NO 
4 72 116663 177777 177776 MOVE = =1(SP),-2(R3) } ; YES-~SET_THE SIGN FOR TYPING 
4883 024100 105013 9S: CLRB ss (R33) :SET THE TERMINATOR 
4ee4 bev 1Ge 1 MOV (SP)+,R5 :1POP STACK INTO RS 
4 4104 Ole6 MOY (SP)+'R3 ::POP STACK INTO R3 
4886 024106 Ol260e MOV (SP)+'R2 ::POP STACK INTO Re 





MAINDEC-1 1-DZRKH-F 


OZRKHF P11 


22-SEP-76 


MACYILL 27( 1006) 
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L10 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


04-OCT-76 


TYPE BLK 

my tae 

my ° 
SOTBL: 1 

1000. 





;;POP STACK INTO R1 
3;POP ST INTO 


$3 My Ba = 
;;ADJUST THE STACK 
;;RETURN TO USER 
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4898 

4899 

4900 

4901 

303 

4994 

4905S 

49 

490 

4908 

49 

491 

4911 

491 

491 

Wis 1 1057 001157 
Wsie beqise 1oR00e 

4917 024160 000000 
ye en 
4921 De4178 11 

2 Bin pe 

we Geve0s et 

4925 eUe 716 000002 
4 024206 

4 Oe4ei0 122716 000011 
ves Devele e271 900200 
430 Oet¢ee 1006 

"-4931 Qe%ee4 005726 

4932 Oet4ee6 104401 

uaa peuBae To037 024366 
was? Dewouy 13786 901156 
4938 250 1350 

ne 9 | Oe4eSe 013746 001154 
dau eS& 105366 000001 
woud Deused Ob4797 924322 
way feue70 10s937 bes 
ae Oe42e74 000770 

494 

4948 

4949 024276 112716 OO0040 
Wee Su S0e roo739 Becaae 024366 
4se2 Dewsls OBI 

4953 O0e4316 005726 


—_———--—-— -—— 
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04-OCT-76 13:29 PAGE 116 
TYPE ROUTINE 
.SBTTL TYPE ROUTINE 
EROUTINE 10 TYPE sci? MESSAGE MESSAGE MUST TERMINATE WITH AO 
7 “hout] O ne NESSAGE S MUST TERMINATE WITH A 0 BYTE 
Bi MR AE ae Tee RTE Daan 
SEILL SANTA I The NUMBER OF FILLER CHARACTERS REQUIRED. 
HINOTES: CONTAINS THE CHARACTER TO FILL AFTER. 
. *CALL: 
#1) USING A TRAP INSTRUCTION 
ite TYPE ,MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
3% TYPE 
:# MESADR 
;* 
$TYPE: TSTB $TPFLG :;1S THERE A TERMINAL? 
BPL 1$ ;35R IF YES 
HALT HALT HERE IF NO TERMINAL 
BR 35 tI LeAve 
1$ MOV RO, -(SP) :SAVE RO 
MOY ae{tsP),RO GET ADDRESS OF aSCIZ STRING 
2s MOVB (RO) +,-(SP) :rESH CHARACTER TO BE TYPED ONTO STACK 
BNE 4§ BR TE TT ISN'T THE TERNINA 
TST (SP)+ ;;2E TERNINATOR POP IT OFF THE STACK 
60$: MOV (SP)+.R0 STORE 
3$: 80D #2, (SP) i ao JUST RETURN PC 
4g: CHP HT, (SP) Re Te IF <HT> 
ches BCRLF , (SP) ;;BRANCH IF NOT <CRLF> 
TST (SP )+ ;POP ae EQUIV 
TYPE ity PE A CR AND LF 
cLRE SCHARCNT :;CLEAR CHARACTER COUNT 
*:GET NEXT CHARACTER 
cs: JSR PC, STYPEC GE TYPE THIS CHAR 
63: CMPBOsC«SFILLC,(SP)+ ;:IS IT TIME FOR FILER CHARS. ? 
BNE IF NO GO GET 
MOV $NULL, -(SP) :GET # OF FILLER. CHARS “NEEDED 
;;AND THE NUL 
7S: DECB sa SP) ::DOES A NULL NEED TO BE TYPED? 
BLT 6$ ::BR IF NO--GO POP THE NULL OFF OF STACK 
JSR PC $TYPEC ::GO TYPE A NULL 
DECB © SCHARCNT ::DO NOT COUNT AS A COUNT 
BR 7$ ;;LOOP 
;HORIZONTAL TAB PROCESSOR 
QS: MOVE (SP) ; REPLACE TAB WITH SPACE 
: ISR Bc. $TYPE rE TYPE A SPACE 
BITB ssi? SCMARENT 3 BRANCH F NCT AT 
BNE 9° +3 T 
TST (SP)+ ::POP SPACE OFF STACK 


- SEQ 0129 
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| MAINOEC-11-DZ2RKH-F MACYL1 27(1006) O4-OCT-76 12:29 PAGE 117 ? 
DZRKHF.P11 © 22-SEP-76 09:57 TYPE ROUTINE _ $€9 0130 
see os Be 1s4622 STYPEC: fre By , SET ENTIC PRINTER IS READY | 
Ce nyiaeg Ramreas « 
4360 = S037 o243e6 7 HARCNT ::YES==CLEAR CHARACTER COUNT 
ee 3 4 12276 ocoocl2 o000ce 18: a SCSP) i Te CHARACTER A LINE FEED? 
be ie ss Foe 
az eS 38 isis cuorents uBR Q. ean tee ECUNT SF ORAGE 
See oes TYPEX: ATS 





Bll 


SES 0131 
| :29 PAGE 11 CII CONVERT ROUTINE 
| PEP TOS) BUALE LENGTH BINARY 70 OETA AS TAL ASCII CONVERT ROUTINE 
s* ZA Di TO oc 
| MRINDEC<11 ee woee-7e Oe: Dest is TTL DOUBLE LENGTH BINARY ssousanecusvasnevecssasves 
j DIRK li .$8 Ike CONVERT @ 32-B1T UNSIGNED BINARY NUMBE 
Titi) 7G 32 

| 6% ie ss an Rec HS Newer : TO LOW WORD OF BINARY NUMBER he ens 

pete > -(SP) ¢3PQ7 ROUTT! T ASCIZ CHAR. 15 ON 

oe er Wey PC, as$0820 ithe ADORES 

‘ 7% f 
wee oo Estee aN gis7 aN Low WORD 
‘ : SAVRES 

= — Boy esScTiL +13. R85 ae 

497 MOV 
| 4 ; 107 Ra 

mov 4, tH 
| = ad ALS Rt — a DATA TABLE 
R =(RS) T THIS DIG! 

365 is MS ee t Pa T erGI7 

35 ey Te pest 1GIT FIRST 
13 ¢ RY re Is ! even Fon 
| = 2 i ay e teres” 

INC (SP) orerr 

| 4 MOV RS,2( +: RES LAST D 
| we meee Hee} TION T BINARY NUMBER FoR 
| aes aoe :sPOSITION THE BINERY NUNGER 
| wos 3 Ror a 3 

16 we 8 
4a? ie 
 -¥ede ROR R 
| 5a aye : Re rs THis ¢ ri ASCE TABLE 

ae ee : iN 
| Fite e terre + ery Gam PA 

CTU . BLKE i4. fe 

5004 x SOCTVL: a 

| ae Des474 OOCC1E 





se ee 
SO ee Se aD 


Cll 

! C-11-D2RKH-F cYiL 27% OCT-7% 

BEE EH Serica ny Bares! EPO) ORNS eRerh Binany £5 GECIMAL ASCII CONVERT ROUTINE | $89 0122 
5007 SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 





freee ROITINe uine CONVERT fh aOeRIT BINARY NUMBER TO GN UNSIGNED 
tit THIS ROUTINE WELL, Cony CONVERT A ne BINARY NUMBER TO GN UNSIGNED 
saDEC TMA (ASCII) . THE HE BINARY NUMBER MUST BE 
we 3 





“Oru £ Gutue- 


ee ee ee ee ee er art 


: MOV SPNTR.-(SP) ; POINTER TO LOW WORD OF BINARY NUMBER 
- iz Pc, astoe20 
‘ TURN 3; THE FIRST ADDRESS OF ASCIZ 
3 7:1S ON THE STACK 
38 
2233 gev512 Lowy $0620: SAVREG ons ta s3$8VE REGISTERS ERS 
ete BE Jes¢ 1EPo6 Roce es nov cH RO HGBY Boones oF “Soeur VL" STRING 
024524 O01 900002 MOV RO, 2(SP) BpoRESe OF paces STRING ON STACK 
aoe Gave 12201 MOV (Re) +.B} + TCKUP THE BINARY NUMBER 
i 024610 oy : H TO DO 10 CONVERSIONS 
Ene cRENe oie: sees nO NOUR, RY ii 3 optes OF TEN POWER 
5029 beuece 505093 — Ok — ertonnti sree ;CLEAR PARTIAL 
5030 024554 161401 § Sug 1,1 I TSUSTRACT TEN POWER 
ae Bb. 
3$ +88 IF TEN POWER TD LARGE 
Be Bee Bee Be i abe ceibon 
5036 024570 } 2S: ADO (R4)+,R1 1D ae SUBTRACTED VALUE 
eta Deuesg Sescns Bid 
5038 74 ADS (R4)+,Re 
£535 024576 Oeeses CMP (RS)+'(RS)+ :;MOVE TO NEXT TEN POWER 
024600 p00060 BIS #°0,R3 ::CHANGE PARTIAL TO ASCII 
me Bey ye ne 
5043 02461 4S: “WORD =O = 
Be4612 001 BNE is :38R IF 
te iboats SECEEG — tT RECTORE RE REGISTERS 
5047 ate RTS ss PC :;RET 
S04e Oevée2 145000 STNPUR: 145000 ::1.0£09 
fhe ie — 
Eps Oeueze 11 113200 :;1.0€07 
fs ee Ria site — 
5055 Oe4e40 50001 i7 on : 
E0SE Oeve4e 103240 103240 331.0€0S 
5057 1 
ope e420 :31.0E04 ; 
5060 deveSe 001750 :;1.0€03 = 
£061 de4es4 o00000 te: : 
be4es_ 000144 144 331.0802 





- mm oe ee ee = -—-— + - _——- a a a ne 


ee ae Ee Ee ee ee 
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| MRINOEC$11-DZRKH-F MACYI2 2711006) O4-OCT-76 13: 


PAGE | 
-Pil = 22-SEP-76 08:57 D LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 
S063 Ce4660 900000 0 
S064 Oevébe 9000) 2 333.0E01 





ae iE ee — 


2586 BE IE+5 14% SOECVL: .BLKB ié. ;;RESERVE STORAGE FOR GSCIZ STRING 


—-— 
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MAINOEC=11-DZRKH-F MACY11 27(1006) ag “76 13:29 PAGE 12 
DZRKHF PLL 22-SEP-76 08:57 - TYPE NUMERICAL ASCIZ STRING, REPLACE LEADING O°S BY BLANKS — SES 0134 


SET SS TEE RELGD ELEETN, EEASAAERT 5 BY Bw 





SUPRSL: MOV RO, -(SP) ;SAVE RO 
CLR S i 
M 4(SP), RO 
SF 1 
SUPRS: MOV RO, -(SP) . 
oy 4( SP) RG BIG Fonts Sonn POINTER 
MOV RO, SuP2 
SUP 1: 
iS: TSTB = (RO A 4 NATOR? 
9 2g :BR IF YES 
ChE 8,0, (RO) -IS THIS AN ASCII "0"? 
MOVB #840, (RO)+ *REPLACE IT WITH “BLANK” 


#0, (RO) ‘Beet y «Be 


| 
| 
| 





ve 
4$: 1ST SUP? *LEFT JUSTIFY? 
BNE 3s ; 
MOV , SUP2 s 
cs: TYPE 160 TYPE 
Supe:  .WORD O 
MOY ( B)+.80 : TORE RO 
MOY (5P)4" (SP) !RESTORE THE STACK 
RTS PC : URN 


| 
| 
i 
' 
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MAINDEC-11-D2RKH-F macy 27(1006) O4-O0CT-76 13:29 PAGE 122 
DZRKMF.P11 22-SEP-76 08 INTEGER MULTIPLY ROUTINE 
5099 .SBTTL INTEGER MULTIPLY ROUTINE 
ate ‘t s SSFSRELLESSSSESSSSLELSSSSSSESSSAASSSSRASSSSSSESSSSSSSFSSSSSSSLASS4E 
] 7 #CALL 
} :# MOV TIPLER, -(SP) 
ine :# MOV Ty mak Seen -(SP) 
104% «+ :# JSR T 
108 . i RETURN rr pROnUST IS ON THE STACK 
197 i STACK PRODUCT 
es ~ ty TOP Ls . 
8 :% +2 beg. 2 
Elle oesoos $MULT: 
113 10046 MOV RO,-(SP) ;;PUSH RO ON Thee 
114 pe501 101 MOV Ri’ -(5P) : PUSH RI on TACK 
He fens Guess me hae she ney 
cit? pe501 16601 oo0012 Hv 1e(SP) RL ay THE nH Bho 
1 & INC (SP) Heer THe Bon it 
1 S401 NEG Rl : HE MULTI IcAND POSTIVE 
i 1 1 poco 1S: MOV 14(SP) Re :3GBT THE MULTIPLIE 
etss Sense ppOoe BEE 85 ti OPoaTe T SIGN KEY 
e124 025040 9005402 : ‘i NEG Re <ien MAKE THE MULTIPLIER POSTIVE 
eis? Reese SAEs we : CLR Ra , Has. fhe Moe MULTIPLY LOOP 
ie? 025050 10300) 2S: BCC 4§ ~ :DON’T ADD IF MULTIPLICAND = 0 
ious 
215€ B5ebeG 4$: ROR RS’ POSITION THE PARITIAL PRODUCT AND 
2/30 5 peste Ree Re ) eS ACE AL ETE Se ue MULTIPLICAND SEEN DONE? 
L 
213s BSenes Beats Be OOS Ha 
5133 025064 O22616 cre (SP)+, (SP) $s SHOULD PRODUCT ee NEGATIVE? 
: cz BSEDe8  Doeuns g OBB Fee hake’ 1}°s0 
13% 025072 005401 NEG Ri 
£137 025074 O05600 SBC RO 
2138 005726 cs: TST (SP)+ 3 3 CLEAR SIGN INFO. OFF OF STACK 
139 ata 010066 o00012 MOV RO, 12(SP) 33PUT THE PRODUCT ON THE stack (MSB’S) 
Ei40 025104 O10is& d00010 MOV R1'10(5P) “LSB°S 
E141 besiig 1 MOV (SP)+, Re Bop STACK INTO Re 
El42 2511 Biseee MOY (§P)4+'RI ::POP STACK INTO RI 
£142 025114 012600 MOV (SP)+°RO ::POP STACK INTO RO 
£144 O2Slie 000207 RTS Pc 





MACYLI 27(1006) 


MAINDEC-11-DZ2RKH-F 
DZRKHF.P11 22-SEP-76 09:57 

5145 

5146 

aR 

tH 

a 

123 

a 

ete 

5156 
| pie 
| ie 
| 5160 

i6 
| 863 

5is3 , 

fe ie us Bae 
| eiee peels? ¢ 
| §187 025134 O12718 025156 
| §168 025140 016637 oO00004 
| §369 O25146 O1e666 Oo000e2 
5170 025154 900002 
§172 925156 o4e716 000017 
| §173 O25162 o10046 : 
| §174 025164 010146 
| gibe Deeise Bt Osu 
| 5172 gee ISTHE 1 
2178 psesre bree de pppasd 
| §180 025204 016600 o00022 
| 518 Se5e19 100005 
ee 
| §185 Oe5222 005600 
| §186 025224 O16602 ooo0e0 
| e187 025230 O22702 o00001 
> oy 
HB ES 
| §] 
«eS Beesd2 BpscRR 90000 
| Etat FEESPR BOONE? noone 
| §196 o25364 BpeaBe 
 §197 oeS266 dosyde 
+5198 70 o00241 
| §1¢9 72 odo0405 
_ 5200 006100 





000014 


Gll 
INTEGER OIvide RGUTINE. 


-SBTTL INTEGER DIVIDE ROUTINE 


; #CALL: 
Le MOV LOW DIVIDEND, -(SP) ; THE HIGH DIVIDEND MUST BE < 1/2 
# MOV HIGH DIVIDEND, -(SP) : AS LARGE AS THE DIVISOR 
t# TURN ;QUOTIENT 8 REMAINDER ARE ON THE STACK 
pe EYEE Posie : 
:# at TEES FRO Re SVERFE OW OCCURRED 
i "C"=] ATTEMPTED TO DIVIDE BY ZERO 
+ 
: : STACK NO ERROR OVERFLOW DIVIDE BY ZERO 
:# TOP REMAINDER ALL ZEROS ALL ONES 
1 +2 QUOTIEN ALL ZEROS ALL ONES 
SDIV: MOV 34,-(SP) ;SAVE CURRENT TRAP VECTOR 
HOV #1$,34 -SET UP TRAP VECTOR 
18: MOV #23, (SP) sREPLACE NEW PC 
MOV 4(SP), 34 :RESTORE OLD TRAP VECT 
MOY 2(SP)?4(SP) : 
RTI ‘RESTORE PSW 
2g BIC $17, (SP) ;STRIP AWAY CONDITION CODES 
MOV RO, -(SP) *PUSH RO ON STACK 
MOV Ri; -(5P) :PUSH R1 ON STACK 
MOV R2;-(SP) :PUSH Re ON STACK 
MOV R3/-(5P) *PUSH R3 ON STAC 
Shy at (SP) TH THE TTEROTION cCUNTER 
MOV 24(5P) ,R1 iB FCUP THE BFC TOEND 
MOV 22(5P)'RO 
BEL 3$ ;CHECK THE SIGN 
DECB 429s: SP) *KEEP TRACK OF THE SIGN 
NEG nm ?AND NEGATE THE ORIGINAL 
NEG R1 ; 
SBC RO 
38: MOV 20(SP),Re ;PICKUP THE DIVISOR 
CMP #1,Re :IF THE DIVISOR IS 1 SKIP THE REST 
BLT 4§ ;CHECK THE SIGN 
BGT S$ :DIVISOR OF 0 IS A NO-NO 
BIS #3, 14(SP) :SET "y" B "C" 
NOV -1,RO 3ST REMAINDER TO ALL ONES 
4$: INC ¢( SP) :KEEP TRACK OF DIVISORS SIGN 
S$: NEG Re ;NEGATE THE ORIGINAL NUMBER 
6$: CLC ‘CLEAR "C™ 
BR og :START FORMING QUOTIENT 
7$: ROL RO :POSITION MSB’S 


ee 


eres 


MAINDEC- 


11-DZRKH-F 


DOZRKHF .P11 


5201 


CNR 
WONWU£ lI O 


SISA 


an SRC 


wD 


22-SEP-76 
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08:S7 


6000Ge 000014 


00000! 


009020 
000016 


ococde 


04-OCT-76 13:29 PAGE 124 
INTEGER DIVIDE ROUTINE 
MOV RO,R3 
ee ogg 
MOV R3,RO 
9s: ROL R1 
DEC (SP) 
BNE 75 
TST Ri 
L 10$ 
BIS 82, 14(SP) 
CLR RO 
$: MOV RO,R1 
10S: TST (SP)+ 
TST (SP) 
BGE 11$ 
NEG RO 
CLRB  =s_-L( SP) 
DEC (SP) 
118: TST (SP)+ 
BE 12$ 
NEG a 
12S: MOV R1,20(SP) 
MOV RO’ 16(5P) 
MOV (SP) +,R3 
MOV (SP)+,Re2 
MOV (SP)+'RI 
MOV (SP)+,R0 
Nov (SP) +’ 2(SP) 
138: CMP (SP)+, (SP)+ 
os 12$ 


ee "bvibene > Brvdsba™ 


TER THIS LOOP 
SCOT IENT Rott ER ene HERE 
: DONE? 
;BR_ IF NO 
: OVERFLOW? 
:BR IF NO 


:SET “V" IN RETURN STATUS WORD 


: TIENT 
:CLEAR COUNT K 
MAINDER SIGN CORRECTION NEEDED? 


RO 
SETUP TO KRE TURN CONDITION CODES 
POP THE STACK 





cl ee et 
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08:S7 


& 


feeeoeee 


QOOCOK00000 


FRE 


DSS RSS SATS 
oO 
ao 
ao 


BaeRBeR 


04-OCT-76 13:89 PAGE 125 

SAVE AND RESTORE RO-RS ROUTINES 

.SETTL SAVE AND RESTORE RO-RS ROUTINES 

e. SESSSAASSREAASSARALAARE SSAA SSSSA LASS RAAFLAA EASA LALA LASSASSSLESSE 
: zavE RO-RS 

7 #CALL: 

:# SAVREG 

;#UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 


.% 
:#TOP---(+16) 


3% +2---(+18) 

3% +4---R5 

3% +6---R4 

:% +8---R 

3#+10---R 

3#+1le---R1 

;#+14---R0 

SSAVREG: 
MOV =—- RO, - (SP) ;;PUSH RO ON STACK 
MOV. 1, -(5P) ;;PUSH R1 ON STACK 
MOV ~ Re, -(5P) ;;PUSH Re ON STACK 
MOV RS, -(5P) ;;PUSH R3 ON STACK 
MOV = RY, - (SP) ;;PUSH RY ON STACK 
MOV =- RS. -(5P) :;PUSH RS ON STACK 
MOV eetSP),-(SP)  ;;SAVE PS OF MAIN FLOW 
MOV 22(SP),-(SP) ;;SAVE PC OF MAIN F 
MOV 2(SP),-(SP) SAVE PS OF COLL 
wey e(SP),-(SP) $3 PC OF CALL 

. #RESTORE RO-RS 

Seen pecReG 

SRESREG: 
MOV (SP)+,22(SP) ;;RESTORE PC OF CALL 
MOV (SP)+,2e(SP) RESTORE PS OF CALL 
MOV (5P)+/20(5P) ;:RESTORE PC OF MAIN FLOW 
MOV (SP)+,220(5P) ;;RESTORE PS OF MAIN FLOW 
MOV (5P)+/R5 :;POP STACK INTO RS 
MOV (SP)+) RY ;;POP STACK INTO RY 
MOV (5P)+'R3 ;;POP STACK INTO R3 
MOV (SP)+'R2 ;;POP STACK INTO Re 
MOV (SP)+)R1 ;POP STACK INTO RI 
Ov (5P)+;RO :;POP STACK INTO RO. 





8 


SS 


neu 
WONMiU © Wt © 


uy 
Ww 
tw 
— 


$332 


Sapam 
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000012 


000002 
177771 
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PAGE 126 
R GENERATOR ROUTINE 


04-OCT-76 13:29 
RANDOM NUMBE 


-SETTL RANDOM NUMBER GENERATOR ROUTINE 
:# «JSR PC, SRAND COLT THE ROUTINE 


:* RETURN RE THE RANDOM 
;# TOMBE WILL BE IN 

:# : SHINUM NUM, SLONUA” 

$RAND: 


MOV RO,-(SP) 


Ra’ = 3) ap Res 


MOV RS, -(SP) R3 ON STACK 

MOV RY -(5P) ne ot STACK 

MOV aid¢ ),R4 POINTER TO THE SAVED SEEDS 

ate FOR GENERATING T HIS RANDOM NUMBE 

MOV 2(R4} Ry get Loot MoT BER EbED 

MOV #-7,R3 :SET SHIFT COUNT 

CLR R2 : ZERO 
1S: ASL RO :SHIFT RO LEFT AND 

ROL Ri ‘ROTATE CARRY INTO R1 AND 

ROL Re ‘ROTATE CARRY INTO Re 

‘INC R3 :CHECK FOR DONE 

Bp Ct) RO SCONTINUE SHIFT LOOP, 29 

ADC R1 800 1 CARRY 

ADD 2(R4),R1 :ADD NUMBER TO MAKE X 129 

ADC Re :PROPOGATE CARRY 

ADD #1057,R0 ADD LOW CONSTANT 

BDC Ri sPROpOGATE CARRY 

R *PROPOGATE CARRY 

ADD #47401,R1 ;ADD HIGH CONSTANT 

ADC R2 OPOGATE CARRY 

ADD #5, Re ADD HIGHEST CONSTART 

ADD Re, RO :REPRIME RO WITH HIGHEST DIGIT 

ADC Ri ; PROPOGAT E CARRY 

MOV RO, (R4) RO-SLONUM (FOR USE NXT T 

MOV R1,2(R4) : SAVE RI-SHINUM (FOR USE NXT T 

MOV (SP)+,R4 

MOV (5P)+'R3 ;POP STACK INTO R3 

MOV (SP)+'Re :POP STACK INTO Re 

MOV (SP)+/RI :POP STACK INTO R1 

MOV (SP)+.RO jPOP STACK INTO RO 

ADD #2, (SP) “ADJUST SP FOR CORRECT RETURN 

RTS PC ?RETUR 

L: 123456 ; RANDOM SEED FOR DRIVE SELECTION (LO) 
RSDRVH: 176543 (HT) 
RSFUNL: 1201 : RANDOM SEED FOR FUNCTION 
RSFUNH: 6246S (HI) 
RSCYLL: 176105 : RANDOM SEED FOR CYLINDER (LO) 
RSCYLH: 174532 
RSBL: 157650 ; RANDOM SEED FOR BUS tADDRESS (LO) 
WOL: 131547 : RANDOM SEED FOR WORD COUNT (LO) 

RSWCH: 32070 


: HI) 
RSDTL: 123456 ;RENOGN SEED FOR DATA (LO) 
RSDTH: 176543 (HI) 
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soe -11-DZRKH-F MACY11 27(1006) O4-OCT-76 13:29 PAGE 127 
DZRKHF Pil 


22-SEP-7E 08:57 BINARY TO OCTAL (ASCII) AND TYPE SES 0140 
5333 .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
35 ; piasreneussnsnpoennsroeserooneseatestasusareecsenmeaceneseateers 
36 :&THIS a INE IS USED T ANGE A 16-BIT BINARY NUMBER TO A E-DIGIT 
$237 :#OCTAL (ASCII) NUMBER AND CINE IT. 
eae : #STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
5340 3% MOV NUM, -( SP) reg TO BE TYPED 
aad) ;# THO PtCALL F T 
:# BY N 3 sN=1 TO & FOR NUMBER OF DIGITS TO TYPE 
ead :* iil 1=TYPE LEADING ZEROS 
3% ;;Q=SUPPRESS LEADING ZEPOS 
ef 
A 8 He M5! gro U3 HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
ue ;*STYPOS OR STYPOC 
5350 % MOV NUM, - (SP) ;NUMBER TO BE TYPED 
ese) # TYPON CALL oR TYPEOUT 
ae | #STYPOC-—-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
= iF MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
pase es TYPOC ;;CALL FOR TYPEOUT 
S258 OeS&66 0176 00 STYPOS: MOV a(SP),-(SP) ;;PICKUP T 
5353 025672 tiees? eee 026111 MOVB 1(SP), SOF ILL :;LOAD ZERO FILL a ee 
$260 025700 112637 113 MOVB (SP)+,SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 
5361 025704 062716 02 ADD te, (SP) ;;ADJUST RETURN ABDRESS 
S362 025710 OOO40 oR STYPON 
S363 025712 112737 OO0001 026111 STYPOC: MOVB a) SO ;:;SET THE ZERO FILL SWITCH 
5364 025720 11ers? 000006 026113 me #6, SOMODE+1 3;;SET FOR SIX(6) DIGITS 
1127 O0000S 026110 STYPON: MO #5, SOCNT >;SET THE ITERATION COUNT 
5266 025734 010346 MOV R3,-(SP) ;;SAVE R3 
S367 025736 O1O0446 MOV RY, -(SP) 1} SAVE a 
025740 O10S46 MOV RS,-(SP) ;SAVE_RS 
S369 O2eS742 113704 026113 MOVB SOMODE+1 , RY :: GET THE NUMBER OF DIGITS TO TYPE 
Bar) fseres bee7OM nba 
1 ADD #6,R4 ;;SUBTRACT IT FOR MAX. ALLOWED 
S372 025754 110437 O26l1le MOVB R4, SOMODE 33 SAVE IT FOR 
5373 025760 113704 O26111 MOVB SOFILL,RY ;GET THE ZERO FILL SWITCH 
5374 025764 016605 o000le MOV 12(SP),R5 : {PICKUP THE INPUT NUMBER 
5375 025770 005003 CLR R3 ;;CLEAR THE OUTPUT WORD 
5376 025772 006105 1$: ROL RS i ;ROTATE MSB INTO “C” 
5377 025774 Oo00404 mR 3$ MSB 
e558 02eS776 006105 2s: ROL RE TORN THIS DIGIT 
026000 006105 ROL RS 
026002 006105 ¢ ROL RS 
5381 026004 010503 MOV RS,R3 
S382 026006 006103 3S: ROL R3 ;;GET LSB OF THIS DIGIT 
$383 Naat 105337 026112 DECB SOMODE 3;TYPE THIS DIGIT? 
14 100016 ;;BR_IF NO 
026016 042703 177770 BIC #177770,R3 ;;GET RID OF JUNK 
Oe602ee 001002 3: TEST FOR O 
5387 Oe60e4% 005704 TST > ;;SUPPRESS THIS 0? 
026026 001403 Q ;;BR YES 


leiheedctbecsdem iad . ie 
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ue 
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ee 






= 0 bs 
QR2R 
ooo 
ares 
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BINARY TO oct (ASCII) AND TYPE 
4§: INC me 
BIS #'0,R3 
cs: BIS R3 
MOVB RB, BS 
T ag 
7$: DEC SOCNT 
BGT $ 
au z 
NC 4 
2s 2$ 
6$: MOV (SP)+,RS 
MOV (SP)+,R4 
MOV (SP)+,R3 
MOV 2(SP),.4(SP) 
MOV (SP)+! (SP) 
8S gis 
‘BYE 8 
SOCNT: .BYT : 
SOFILL: .BYT 
$0MO 0 


Lil 


*T SUPPRESS ANYMORE 0°S 
DIGIT ASC! 
F NOT ALREADY 


; OR 
5160 T THIS DIGIT 


i 
tZINSURE LAST DIGIT ISN’T A BLANK 
$360 LAST DIGIT 


; RESTORE Ru 
ieeF one Back FOR RETURNING 
:: TERMINATOR 


FOR TYPE: ROUTINE 
QOCTAL DIGIT C 


tt ZERO FILL Uaioe 
; ;NUMBER OF DIGITS TO TYPE 


; RETURN 
33 STORAGE on 


M11 
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DZRKHF.P11 22-SEP-76 08:57 RROR HANDLER ROUTINE 
S41 .SETTL ERROR HANDLER ROUTINE 
Pe EE RALAB. 
is :#5Wle=] Nat ERROR THESTORY He FUNCTION THAT 
: was ge NG, PERE THE TIN OF ERROR AND 
D BK AT TO T 
4 : PART OF THE PROGRAM. 
5 A fe DUMP He ALL RK REGISTERS 
421 BELL ON ERROR 


5 pe 


41 : 
41 $ 
a ;#NOTE THIS SWITCH OPTION (12) IS MEANINGFUL ONLY FOR ERRORS OCCURING IN THE 


RROR 
pe Sr Fine AT WHICH ERROR OCCURED 


424 DROP THE DRIVE AFTER MAXM ERORS ON THIS DRIVE 
By iSO =1 T THE SERIAL NUMBER OF THE ERRORING DRIVE 
4 #60 TO SERRTYP oN 
i 
S429 026114 104407 SERROR: CKSWR ;LOOK FOR A ‘CONTROL G’ 
S430 026116 Lse37 001103 INCB = SERFLG :SET THE E L 
6431 O26122 001 BEQ SERROR ‘DON’T LET THE FLAG GO TO ZERO 
bie Deb ied 013777 901192 153010 MOV STSTNM, JDISPLAY :DISPLAY TEST NUMBER AND ERROR FLAG 
+ 132 153000 BIT #SW10, aSWR “:BELL ON ERROR? 
| 5434 026140 001402 Q :NO - SKIP 
435 Oe6i4e 10440! o01206 TYPE S$BELL :RING BELL 
| S436 026146 005237 O0ille 1$: INC $ERTTL ‘COUNT THE NUMBER OF ERRORS 
- 1 po0c04 152760 BIT #SW2, ISWR ;COUNT # OF ERORS 8 DROP DRVE? 
: 2 passe 932777 gr ae 
44 162 010146 V R1,-(SP) :SAVE R 
Eid BEPTES Bios 001250 MOV SRORV, R1 ?GET ERRORING DRIVE # 
S443 026170 100410 I rIF ( j= -1, SKIP(BECAUSE 
Baad :EROR WAS NOT ATTRIBUTABLE TO ANY 
| S4ys j SPECIFIC DRIVE) 
 §44E 026172 105261 o01S42 INCB  ERDRV(R1) ;COUNT # OF ERORS ON THIS DRIVE 
447 Deb176 126127 001542 ooo003 chp RORV(R1), #3 # OF ERORS GREATER THAN ALLOWABLE? 
448 101462 BLO NO 
| etH3 026206 000137 o1s220 MP DSELCT :DROP THE DRIVE 
Btz1 Oeb2l2 012601 2S: MOV (SP)+,R1 ;RESTORE Rl 
| «BES 026214 011637 001116 3S: MOV (SP), SERRPC ;GET ADDRESS OF ERROR INSTRUCTION 
Stes O26220 162737 O00002 o01116 SUB te SER RRPC 
| 5456 p5esse 117716 152662 MOVB aséRrec (SP)  ;STRIP_AND SAVE THE ERROR ITEM CODE 
S457 Oebes4 121627 O00100 CMPB , #100 “FORM THE CO4SECT ITEMS IF THIS IS AN 
452 febe0 ODeNte BLT i : MESAGE EQUAL OR ABOVE 100. 
«ys 42 162716 000040 SUB #40, (SP) :NOTE THERE R 2 CLASSES OF ERRORS: 
B40 i1) SITENG'S BELOW | 100 
| zie3 iia TRACTION FACT 1eRS TOBE SUCH THAT 
«S463 :THE CONSECT OFFSET IS SELECTED. 
ete FACTOR W ul C IF THE TOTAL 2 "OF 
| Bug iE ROR MESSAGES IN CLASS | CHANGES. 


co reer re rer ere r+ 


=100 -LAST ITEM IN # CLASS 1 - 1 


, SEQ 0142 
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DZRKHF.P11 22-SEP-76 08:57 ERROR HANDLER ROUTINE 
467 “ 4$: Vv )+, MB 
sé piee37 aosai 152660 Ee} gould SUF :SKIP TYPEOUT IF SET 
M2 8 ee OBR csgenntyp 126 10 USER ROUTINE 
ue 104401 caret TYPE rae ta * 
47 esere 010000 152640 BIT sSW12, aSWR : TYPE ERROR HISTORY? 
474 1402 SEQ 3NO 
z Beb3s0e 904737 020334 ISR PC HISTRY : YES 
026306 005777 152626 cs: TST 2SWR ;HALT ON ERROR 
178 026312 BPL 6S :SKIP IF CONTINUE 
479 026314 HALT HALT ON ERROR! 
480 Oc6316 1 CKSWR “LOOK FOR A *CONTROL G’ 
2 ae ? 001000 182612 &$: eI 8SWOS, ISWR ;LQ0F ON ERROR SWITCH SET? 
1 4335 001114 o00040 CMPB oe. #40 THERE R 37 ERROR MESSAGES IN CLASS ! 
5484 026336 103011 BHIS 
Bes 026340 O13746 001244 MOV PPRLVL, -(SP) QUT AL ALL INTERUPT TURN 
4 ae HANDLE OF He geror 
497 ils TERE TSER 8 LOOPING IS T 
488 : INE 
| §ye9 o26244 TST (SP)+ 
| §490 026346 012716 01S634 MOV #EXCRLUP, (SP) iE] THI Is ERROR CALL HAS FROM EXERCISER 
E49] HE PROGRAM G0 70 ¥CRL 
54 ‘OTHERWISE RETURN THRU SLUPERR® 
| yey o2e3s2 012737 177777 001250 78: MOY #1, SRORV ;RESET SERIAL NO FLAG 
| S495 IF (SRORV)=-1, THEN THE SERIAL 
eM ;NO_OF THE DRIVE WILL LL NOT BE 
4 _ TYPED 
5496 sOTHERISE SERIAL NO FOR THE DRIVE 
5499 *SRORV’ WILL BE TYPED. 
PEO Seese seats 901110 gg nov SLPERR, (SP) ouner RETURN FOR LOOPING 
| §802 026366 000771 BR , ee ;RETURN 
i 
! 
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Bt te coee ne Teves! ebeoe mes 





003233 


001134 
001116 


001213 


Ble 
27S Be out oct ine 


-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


LAE SESE | 
SND REPEATS 4) 
SERRTYE: TYPE SCRLF 
MOV (SP) 
piss asSITEMB RO 
MOV ,7( SP) 
TYPO? 
gf 
18: C 


ASL 
oo fen 
3; “3 

3s: toto ° 

3: BIT bait asur 
BEG 25 
tee | "Sth 

cs: MOV (RO)+,68 
33 

6s: NORD C 
TYPE SCRLF 

7S: MOV RO). RO 
EQ 24 

es: oy @(RO)+, -(SP) 
T BLNKS2 
TSy,  [RO) 
BNE Ey} 

3S: my (SP)+.RO 
C sf Eke, evo 
BHIS 198 
J C, TIMTYP 
JéR PC’ SNOTYP 

10S: ATS PC 


a 


aE {srrvene) TO DETERMINE wc 
“ERROR THLE” 
NeneT Ton N RONCERNINE THE ERROR. 


s"CARRIAGE RETURN” & “LINE FEED” 
:PICKUP THE ITEM INDEX 


tet Sue bear S st 


SAears 


3F T 

;PICKUP r 

i Sk o re F NO POINTER 
i 


iE OP earth 
360 TYPE OUT RK REGISTERS 


Re 


ont Ser oe RNG A ‘et 


ee He. on Mies 


Pies Bo HER NUMBER? 


TA HEADER” POINTER 


RESTORE 80 z 
edekries 
TYPE. ee SW3 IS SET = 


RIAL # OF T 
Se’. 


SE 
OF 
iERRORING BRIVeS TF SW i "3 













Bt Oe ctee ane Secget O7' tO rahi ee nT a 


ity § ie yy ie. IP eur te Ye ROT pe Se sal SW 3 IS SET 


277 0 4 TIMTYP: BIT . ash Sw 3 
ieee si seep 7 i F fa! Sk 4 "TYPING TIME 
194401 Sseee ‘ pes ; sacl 
: o01ss2 RO LINITIALIZE POINTER 

1 (ROi+, Rl 


(PO)+,R1 ; TYPE OUT 


:MINS: SEC 
ON ERT 3 Bectz STRING 
asSUPRSL 360 ee? 


ee e+e 
-- 


ws 
7 iil sill 
agree 
- 


See 
a 8 
oe: 





; PES Tore RO-R4+ 
: s RETURN 
900006 s$: 


i 


guerra : 


a mm 


| ERE pi) ES hee 7, Beced! O71 1008) parks Id iflatialfe SEO 0146 


RA Hone sate Jf ga 
; co e if an rep ou SHE DBI VE 
Fe ae ae ae) ee, bgt ni) THEN 


4 e777 ooococe 1s2246 pores - ge ans 8? 
ake 10146 MOV bs . Rl 

e7% 13701 001250 MOV _ T ERRORING ORI “es a 
355555 foeso> oP ig ia hot Ar TRIBCTSELE 

eel 7 a :T0 A SPECIFI pare 

Brie ibn Bae TRE Gee ge, UTE MaRMOET 
026722 104405 TYPOS , ise OUT “DECIMAL ) 
ee Be eee 


CEO Y 


$ G 
: THIS ROUTINE DUMPS OUT ALL RK11 REGISTERS WHEN SW 11 IS SET AND AN ERROR OCCURS. 


| get? §5535 yoeyo1 pesrae ites Eee s: TYPE ASC 
| Ett sethed eects -65S: oRScIz (15><12>7 PC $357 OVER T fg #5; Bos RKWC 2060 RKB SCORKDA RKB 
| S614 e704 1 ail 

eis 01374 OO111E MOV SERRPC, -(SP) 

E16 027044 1gaNde TYPOC 

1 E7046 04401 902663 TYPE BLNKS2 

ple 13508 oorere MOV et o 
ee24 eee +eroe 1$: MOV a(RO)4+,-(SP) 
| S621 027062 104402 TYPOC 
«Sees 027064 10440 3 TYPE BLNKS2 
ees mare raga 001232 CMP RO, #RkD8 
let MOV (SP)+,R0 
| §€26 Ge7l00 00207 RTS pe 


8 Ob em 
—- ee 
£ fv 


oe 


BRR 


a 


ear 


ee | 


. 


8 
° 


OO 
—e- 
Rae 


Se 
: 


hie 
SAIGLiL AS ASA aARBRS RSA SSRSATRC OA Sa aa aL AEE 


Se 
ss 


roru 


Ele 
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SCOPE HANOLER ROUTINE 


-SBTTL SCOPE HANDLER ROUTINE 


SOUITASEECEEOHODESEOEEOIORESEOSSGEONESRORESEOHERESTSOESSOSEOSS 
ATH . pee Ae CONTROLS THE LOFT OF SUBTESTS. IT WILL INCREMENT 
; ST sy, TNM) INTO THE DISPLAY on (OISPLAY<7:0> ) 
LG) NTO DISPLAY< 15:08 
; #THE ay cH GPYione PROV OVIDED Bt BY THIS ROUTINE be 


ie LOOP on E 
ar 
7# SCOPE 3; SCOPE=IOT 
SSCOPE: 

CKSWR TEST FOR Cent IN SOFT-SWR 
18: IT iT 4, ISWR ON PRESENT TEST? 

$ oN net 

seeeeaSTART OF CODE F THE XOR iit Resse 
$xTSTR: BR 6$ ON THE “XOR™ TESTER CHANGE 


ry acre cise) ane HB etis enaik o 
MOV at RAVER +8 Y FoR Time od 

TST i TIME QUT _ON OR? 

hd )+, JBERRVEC 3 sie THE RRR Y VECTOR 


SS: 4 Bisa (SP)+ c Hee SYece BFTER 8 A TIME OUT 


BR ON THE PRESENT as 
6$:;sese8—ND OF Clo. FOR THE XOR™ ‘fESTeRseats 
23: TSTB BN ERR OR OCCURRED? 


art Ss, aSWR PI ON ERROR? 
BEQ :BR IF NO 


7$: Vv am, SLPADR :iSET LOOP ADDRESS TO LAST SCOPE 
LRB tc ;;ZERO_ THE ERROR FLAG 

SSVLAD: INCB STSTNM ;;COUNT TEST NUMBE 
Vv SP), SLPADR 3328 SC Le eeoreee 


MO BRC EEAVE 

CR. | SSE ‘rCLERR. TH Mage Wo Be eee Seer 
SOVER: ‘MOV Stet 3 SOISPLAY ; ;DISPLAY TEST NUMBE 

Hoy SLPADR; (SP) z s FUDGE RETURN RHORE SS 


LLL LLL A LLL LC LL LL CLL LL LL LL, 


Fle 
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DZRKHF P11 22-SEP-76 08:57 TRAP DECODER ' SES 0148 


3670 .SETTL TRAP DECODER 
2g + SESSSSLSSSELERASLALELSRS SSS SSS SLLASESSLSLSRESSAS SASS SSSSSSSS SSS 
& Hive “use If fo lige WILL PICKUP THE oee 8 BYTE OF OF THe re RAP” INSTRUCTION 
FOR THE STARTING ADDRESS 


| 7 
SIRED ROUTINE. ie REN DEINE T THE Me EES OBTAINED IT WILL 
cere i#0F ie THAT ‘ROUT! 
1004¢ STRAP: RO, -(SP) : SAVE 
cers eres) lesa) onnoce ny STS SRo | jLGET Tae anor 
pares i on8 ve | (ane TR 1 

| epee one 027302 MOV vances RO Bh Hg a 
B84 BS75PE ates RTS 3 . ids 0 S ROUTINE 

5586 
563? ;;THIS IS USE TO HANDLE THE “GETPRI™ MACRO 

OLIE4E STRAP2: MOV (SP). =(SP) ; MOVE THE PC DOuN 

2P83 7e OlS666 oo0004 N00002 MOV 4(SPS,2°SP) :3M0 Move THE pS 

3691 027300 RTI : ;RESTORE THe poy 
oegs .SBTTL TRAP TABLE 
| Sess :#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED : 
5% :#BY THE “TRAP” INSTRUCTION. 
| 5598 : ROUTINE 
| §700 027302 927270 $TRPAD: .WORD STRAP? : 
| 5701 027 Dev t5e $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 

e552 ae 712 STYPOC ::CALL=TYPOC  TRAP+2(104402) TYPE NUMBER (WITH LEADING ZEROS) 
| §703 927310 Oesbée STYPOS ::CALL=TYPOS | TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
| §704 Qe73le Oes726 SiYPON ;:CALL= TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
| 2705 027314 023726 STYPDS ::CALL=TYPDS | TRAP+S(10440S) DECIMAL NUMBER (WITH SIGN) 
| e707 027316 022742 SGTSWR ;;CALL=GTSWR © TRAP+6(104406) GET SOFT-SWR SETTING 

£709 027320 oce2672 % SCKSWR ;;CALL=CKSWR § TRAP+7(104407) 
710 per 38 pea154 CHR ::CALL=ROCHR  TRAP+IO(104410) TTY V TWBEIN Chena TER a auFine 

il LIN ::CALL=ROLIN TRAP+11(104411) tr 1 TYPEIN STRING 

5718 Oe CALLS TRAPS{3( 104412) READ AN OCTAL RUNGER-FROM TTY 
Bt aI SeOPEGG TiCALreceUREG  TRAPSLICIOMUTED GAVE ROBE ROUTINE om TTY 
B54 53526 BSEque SePehee t:CALL=RESREG TRAP+1S( 104415) RESTORE RO-RS ROUTINE 
| 6716 336 022264 CN.RST ;;CALL=CON. RESET TRAP+16( 104416) CONTROL RESET ROUTINE 
| §717 967340 022272 CN-ROY 3 3CALL=CON.ROY. TRAP+17(104417) WAIT FOR CONTR 
| §7ig 2 Oezise OR. RST +20( 104420) DRIVE RESET ROUTINE 
| 5715 027344 O22430 TY.MSG ::CALL=TYFMSG TRAPS21 (loads TYPE MESSAGE ROUTINE, SW13 


Gle 
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S721 .SBTTL POWER DOWN AND UP ROUTINES 





5g SHAAHSLELSSLESELELALELEL SELLE LELLSSELALE ELS LEAL SASLASSLELERESS 
*POWER DOWN ROUTINE : 
027512 000024 $PWRON: MOV SSILLUP, J8PWRVEC ;;SET FOR FAST UP 


re 027346 012737 
BS Bes ig SMO Ua yan Ele 
$728 

1 


027364 010146 MOV RL, ~ (SP) ::PUSH RI ON ack 
e563 Resse RRSP Mey RST =< 8B} biBueH BS SN StBeK 
aoa erate pige Nye’ ate) ss BUSH Re ON erack 
2536 7376 ata 151536 nov aSWR,-(SP) = $:PUSH Ree ON STACK 
1 516 MOV SP.$ 53 SAVE SP 
of 7420 coo00e4 MoV SSPWRUP, JPWRVEC’:;SET UP VECTOR 
e037 027416 000776 BR .-2 ;;HANG UP 
5733 5, RRRSRSELEELELAS RE RERE SES EAE RE LET ALLL ERALLAA EERE RAE LAALERAL ALLL EL 
2730 “POWER UP ROUTINE 
1 027420 012737 Oe7512 oc00024 $PWRUP: MOV SSILLUP, J8PWRVEC ;;SET FOR FAST DOWN 
S742 Oe7426 013708 27516 MOV SSAVRS, SP ;:GET SP 
5743 Je7432 005037 027516 CLR SSAVRE +: WAIT LOOP FOR THE TTY 
5744 027436 005237 027516 1S: INC SSAVRE ::WAIT FOR THE INC 
che fares GE sion my faeysagim fee He to ap 
2255 bSoucq Bt fBe}gReMR | SEBSE Stack INTO 
5748 NOV (SP )+,R4 ; $POP STACK NTO R4 
+ 
yep! biBOp Stack INTO Ae 
(3P)+,R ::POP STACK INTO RI 


Ba 
wy 
sik 
SHES 
8 
é 
BS 
BY 
Ss 
an 
7 
es 
bs 
a 


MOV . 
T : REPORT POWER FAILURE 
SPWRMG: MORO SPOWER zREPORT FAIL See Cace SURE TER 
*:RESTART AT PFSTRT 
SPWRAD: .WORD PFSTRT ::RESTART ADDRESS 


SILLUP: HALT 3; THE POWER UP SEQUENCE WAS STARTED 
im | BEF ORE THE Pepe DOWN WAS COMPLETE 
33PU SP HE 


6: » ; 99 
047520 042527 : .ASCIZ <15><12>"POWER” 
c7es - EVEN 


re 
oe 
tT 
S 
3 
8 


o 
ce 


: 
fo 
i 
8 
he 
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027576 
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027660 
asrere 
G27 708 
aaa 
027724 
027732 
027740 
027746 
027754 
027762 
027770 
027776 
030004 
caooie 
030020 
030026 
030034 
030042 
030050 
030056 
030060 
030066 
reatte 
Bai i6 
030116 
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S822 OS2e12e0 947440 
S823 030200 OS1511 OSeSe3 
S824 papeoe 020107 O42S23 
ce fee OO 
S827 O30e2e2 oOS2el0S o40440 
$828 030230 oS5110S da30440 
Boss 36 ll 
bese ied B38 
] 1$1]1 
S83e 030260 020107 O4eS23 
ces anes? 103 gsztig 
114 1] 
5836 030302 ests D20ie4 
5837 030310 O2012e4 043101 
030316 Oe0l22 rt? 
S840 renee sate GE 
ori 051124 
S843 030350 poaess ate 
ce ie fae bin 
eae O4eS16 1 
S84 020123 O47S516 
5848 O30406 O41047 oO51Se5 
S84sg 030414 000 
Sexo SS lee 
5eSe 030430 O47040 052117 
58S3 030436 oS210S o4 
Ses4 oO30444 o44440 ll 
Sess o304Se 052120 047111 
S856 030460 051104 904 
5857 030466 O4eSe3 045 
S8S68 030474 O47117 O24 
fet Bet ooled Boi 
S861 030Sle ate 0511 
S86e 030520 Ge0l2e O4711 
S862 030526 O44517 O43SI16 
cee Gam Oizeds OUTS 
S866 O30546 O2e0104 O47S16 
S867 030554 O42eSe3 020124 
Sees 030562 O4e5e4 Oetl22 
S863 030570 o4ssos os3440 
5870 030576 O42e040 047117 
5871 O30604% 047523 O0S2106 
S87e O306le O47S2e2e O000le2 
5873 030616 O40S504 o040S24 
5874 030624 047503 OS0115 
5875 030632 OS1S11 047117 
S876 030640 OS5110S 051117 
030845 103 OS2ll6b 
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04-OCT-76 
POWER DOWN 
Eml2:  .ASCIZ 
EM13:  .ASCIZ 
EMILY:  .ASCIZ 
EMIS: .ASCIZ 
EM16:  .ASCIZ 
EM17: .ASCIZ 
EM20:  .ASCIZ 
EM21:  .ASCIZ 
EM23:  .ASCIZ 
EM24:  .ASCIZ 
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13:29 PAGE 138 
AND UP ROUTINES 


/SCP SET AFTER iST INTRUPT ON ISSUING SEEK/ 


/CNTROL RDY NOT SET AFTER SEEK DONE INTRUPT/ 


ZINTRUPTING DRVE (SEEK DONE) WAS NOT ‘BUSY’ / 


"R/W/S READY NOT SET FOR INTRUPTING DRVE (SEEK DONE)” 


“SIN EROR/ 
7*ERR’OR ON DOING SEEK/ 


/SCP DID NOT SET AFTER SEEK WAS DONE/ 
“SOFT EROR/ 
ZDATA (COMPARISON) EROR/ 


/CNTROL RDY CLR ON INTRUPT AFTER RK FUNCTION/ 
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. SEQ 0152 


POWER DOWN AND UP ROUTINES 


-ASCIZ /STUCK IN LOOP,8 COMANDS SHLDBE DONE BY NOW/ 
/ATMPT TO REEXECUTE COMMAND-IN PROGRESS OR ALREADY FINISHED/ 
-ASCIZ /’FUNCTION IN PROGRES’ FLG FOR INTRUPTING DRIVE ISN'T SET’ 


-ASCIZ /ATMPT TO DO WRITE BEFORE WRT CHK/ 


-ASCIZ /UNEXPCTED DRIVE INTRUPTED/ 


3 
i 
2 


i 
USAGES SE PAAR SMA SAAT OE i 


y 
J ea | 2 
_— at Baraca SSNS SAMOS Se Seo lheikters Bare & 
ae Re oon; wh. -4--4 T= Occur 
eee Uutns aor ewes sous aeuatia Boa 
a ae ean al cs 
ZIPRESN ISN ie geese 3 Se rego 
Prout aise eae Us Bins ins a. ee 28 zie 
zy 


ae ants nnd UY 


-ASCIZ /UNEXPCTD FUNCTION CODE IN RKCS AFTER INTRUPT/ 


-ASCIZ /ORVE RDY CLEAR/ 


Boas f 
8 
8 
w 


soos aaaat 


Autti ea th 


Soe, Kae name bate lame inten Inaee Ioannina hawt eam ina) 


SSSSSsssssssssssssssssssssssssssssssssss 


te! 


ae 
Set thst hte itehebnbobtoosbemnsnsncnansbubenenonnaoos 
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POWER DOWN AND UP ROUTINES 

EM3S: .ASCIZ /DRVE POWER LO/ 

EM36:  .ASCIZ /DRVE UNSAFE/ 

EM37: .ASCIZ /WPS SET/ 

EM101: .ASCIZ /INTERUPT DIDN'T OCUR AFTER WRTE/ 
EmM102: .ASCIZ /’ERR’OR SET/ 

EM103: .ASCIZ /RKDA INCRMENTED WRONG’ 
EM104: .ASCIZ /RKBA INCRMENTED WRONG/ 
EM10S5: .ASCIZ /RKWC DIDN’T OVRFLO TO 0/ 
EM106: .ASCIZ /MEX BITS WRONG/ 
EM110: .ASCIZ /WRTE CHK EROR/ 
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6009 032116 020101 O20040 051104 
B10 O3eie4 g00043 
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DHi10: .ASCIZ 7 PC RKCS RKER RKBA RKDAY 


DT1: -WORD SERRPC,SREGO, SREG1, SREG2, SREG3, 0 


DTe: -WORD SERRPC,SREGO,O 
DOT21: .WORD SERRPC, SREGO, SREGI, SREG2, SREG3, SREG4, SREGS, SREGS, 0 


DT2S: .WORD SERRPC,SREGO,SREG1,SREG2, $REG3, SREGY,O 
DT103: .WORD SERRPC,SREGO,SREG1,O 


HE DATA BUFFER USED TO WRITE THE RANDOM PATTERNS ON THE 
HE BEGINING. 400 (OCTAL) WORDS ARE WRITTEN AT A TIME, THUS 
ER IS 400/8 WORDS LONG. 
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DZRKHF Pll 22-SEP-76 08:57 SYMBOL TABLE 


ABORT 1672 CICNT! 001470 DSELCT 016220 EXRCSR O07716 KI = 172212 
ABRT 11754 CKSWR = 104407 DSWR = 177570 FNCMND 020300 KIPORG= 172314 
ABRTI 641786 CLEANB 32320 F' 1526 KIPOR7= 172316 
BAMAP 1530 aie pievd) DT103 nee eRe IRT paises KWCOUN poles 
Bist Soeene SCRSIN lebes bi, Bee ceneur SlesIe kis Soles 
Sex GiDeep Beal eae KALVEc= 900160 
Bt 1 B0 = 900001 O14066 EMTVEC= 030 GETINF 021772 KWPLYL 001246 
BITOO = 000001 CNOBSY 1620 7530 GTSDRV 022134 KWSEC Q01SS6 
BITO1 = O0000e CN.RDY 022272 M 0 0 GTSWR = 104406 K 
Bt 106 FY } T 2264 M101 03141 GT3RG Oel746 F = 900012 
3 s 18 C T ‘ ai aa pel uee a 021740 oe eM 
+4 ee 
fetta = rend KeN pes 1 16 M104 3151 HECN 1 020670 
eite = So0100 oF or Soaais Enids 31841 HISTRY OeOs ma 320700 
, 4 4 
Bt ihe = eet EMI1 030135 HT 00 C = 000250 
SIT = 001000 CROTLF 022076 EM110 031610 INTFLG MSG 002062 
BIT1 = 000002 = EMle 030215 INT 013164 MSG10 165 
BITIO = 002000 CSECN O00 EM13 030267 INTLIFL 00 MSG 02201 
pitts = 004000 aap. 030342 INT1SK MSGle 
BITle = 010000 DATCHK 017016 MIS 30415 IOTVEC= 000020 M 002214 
BIT13 = 020000 DATER 7le EM16 30501 KDPARD= 172 MSG14 Q02225 
BIT14 = 940000 DBUF 32412 EM17 030512 KDPARI= 172 MSGIS 
Bris = 100000 DDISP = 177570 EM2 027546 KDPAR2= 172364 002305 
BIT = 000004 DH1 031626 EM20 030540 KDPARS= 172 MSGI7 002326 
BIT3 = 000010 DH1O03 032163 EMe1l 04 KDPARY= 172370 MSG18 3 
BIT4 = 900020 DH1O0S O322e25 3 030616 K' = 172372 MSG19 3 
BITS = O00040 DH110 EMe4 yc KDPARE= 74 MS 7 
BITE = 000100 DHe 031674 EM26 030721 KDPAR7= 172376 MSG2e0 002362 
BIT7 = 000200 DHe1 031711 EM27 774% KDPDROo= MSG24 00 
BITs = 090400 DHe3 032006 .-.: EM3 02762! KDPDRI= 172322 MS 002375 
| BITS = 901000 CHES os3 * EM30 031035 KDPDRe= 172324 MSG26 
| BLNKS] O02664 DH27 032130 EM31 031130 KDPDR3= 172326 4 
BLNK 002663 DH30 032211 EM32 031221 KDPDR4= MSG2 002532 
NK O0266e DISPLA O0114e EM33 031253 KDPDRS= 172332 MSG28 002604 
BPTVEC= 000014 DISPRE 000174 EM34 031330 KDPDR6= 172334 MSGe9 
BUSY 001426 7 EM35 031347 KDPDR7= 336 MSG3 002076 
CESY 021402 350 EM36 031365 KEY 001306 MSG4 002104 
CHDP DOWRIT 006230 —EM37 031401 KIPARO= 172340 MSGS 002120 
CHFAFN O11062 DOXFER O06236 EMY 027644 KI l= 172342 MSGE 
CHKBA = 910000 EMS 027667 KIPAR2= 172344 MSG? 002141 
CHKCRD 020200 DRCMND O2e022e EM 027754 KIPARS= 172346 MSG8 
CHKCS 0015 30013 KIPARH= 172350 MSG9 
CHKDA U = 002000 ERCODE 001474 KIPARS= 172352 NIEROR OQ21424 
CHKDRY O16446 T O143 001S4e KIPARG= 172354 OEROR 014206 
CHKMEX Oe0lle DRYCNT 001500 ERINF1 OOS644 KIPAR7= 172356 NRDH 001774 
CHK: 020 S ool = 100000 IPDRO= 172300 ROL 00177 
CHKWC eee DRYPTR 001476 VEC= 000004 KIPORI= 172302 NWRFNC Q11674 
CH1 OlI116 DRY.RE= 104420 EXCRLU 015634 KIPDRe= 172304 WRTH Q01734 
CHe Cli2leé DRY = 000200 EXCUT 011520 KIPORS= 172306 NWRTL 001732 
CICNT OOL466 DR.RST Oee21Se EXNSK 011376 KIPORY= 172310 NXTORV GO0S3le 
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